Copy down 3 -> transpose until end?

[HotLanta]

Hello,

I have data in sets of three going down in column A. I could have data down to row 3 or 3000 depending on the dataset.

I want to copy A1:A3 and paste transpose in B1 then copy A4:A6 and paste transpose in B2.

Can someone help me with a loop that will loop until there is no more data in column A?

Thanks in advance!

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long, j As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR Step 3
    j = j + 1
    Range("A" & i).Resize(3).Copy
    Range("B" & j).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
End Sub

 

[HotLanta]

Sorry for the delay - this worked perfectly thank you.