Transpose Loop

[nicolewh]

I am in need of a macro that copies every three rows in column A and transposes the copied selection onto the next empty row of column C. Example:
Column A
Apple
Orange
Banana
Peach
Grape
Cherry

Results after the macro:
Column C Column D Column E
Apple......Orange....Banana
Peach.....Grape......Cherry

If copying and transposing is the wrong direction in order to get this result thats fine!
Thanks so much!

 

[VoG]

Try

Sub Nicole()
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("C" & j).Resize(, 3).Value = Application.Transpose(Range("A" & i).Resize(3))
Next i
End Sub

 

[nicolewh]

Works great! Thanks. Perfect macro name too.