Columns to rows macro with a new row added everytime the button is hit

[Jwatts83986]

I have to collect data every day in a column format.

I am trying to make a macro that allows the column B3:B32 to be transposed into a row at G4:AJ4. And then every time the macro button is pushed a new row is created under the previous days row.

I am lost in the VBA. ANY help would be greatly appreciated.

-JW

 

[Takae]

Hope this helps.

Sub tr()
Dim LR As Long
Dim x
LR = cells(Rows.Count, 7).End(xlUp).Row + 1
x = WorksheetFunction.Transpose(Range("B3:B32"))
Range(cells(LR, 7), cells(LR, 36)) = x
End Sub