here's my interpretation of the description given in post #4
Code:
Sub CopyPasteTRANSPOSE_v3()
Dim LastRow As Long, i As Long, ws As Worksheet
Set ws = Sheets("Sheet1")
With ws
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
' THE LOOP
For i = 1 To LastRow Step 8
.Range("A" & i).Resize(6).Copy
.Range("B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next i
' REMOVE ROWS
.Range("B1:B" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
' POSITION THE CURSOR
Application.Goto .Range("A1")
End With
End Sub