View Single Post
 
Old 06-05-2017, 07:59 AM
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

Maybe something along the lines of this...
Code:
With Sheets("Sheet1")
    'get last row of col A
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    'move second value
    For i = 1 To lr Step 3
        .Cells(i, 2).Value = .Cells(i + 1, 1).Value
    Next i
    'remove rows where B is blank
    .Range("B1:B" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End With
Reply With Quote