Transpose macro?

[JayL]

All looking for a way to select cells A1-A4, copy and transpose to cells B1
etc, then walk down to cell A5 thru A8, copy & transpose to cell B5, etc.
and continue thru the workshett.
TIA!

 

[Dana DeLouis]

One idea...

Sub Demo()
Dim Blk As Long
Dim R As Long '(R)ow

Blk = 4 '<- Your Block size here...

For R = 1 To 100 Step Blk ' ??
Cells(R, 1).Resize(Blk, 1).Copy
Cells(R, 2).PasteSpecial Transpose:=True
Next R
Application.CutCopyMode = False
[A1].Select
End Sub

 

[Guest]

One way using formulas

Placed in B1:
=OFFSET($A$1,ROW(A1)*4-4+COLUMN(A1)-1,)
B1 copied to E1, then filled down until zeros appear,
signalling exhaustion of data in col A.