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