Thanks so much

Chuong Nguyen


"merjet" wrote in message
...
Sub Macro1()
'runs on ActiveSheet
Dim iRow As Integer
iRow = 2
Do
Range("A" & iRow & ":A" & iRow + 3).Copy
Range("B" & iRow - 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
iRow = iRow + 5
Loop Until Range("A" & iRow) = ""
Do Until iRow = 2
iRow = iRow - 5
Rows(iRow & ":" & iRow + 3).Delete Shift:=xlUp
Loop
Application.CutCopyMode = False
End Sub

Hth,
Merjet