View Single Post
 
Old 01-19-2020, 10:17 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

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
Reply With Quote