Hi,
Sorry I have not responded to you. But, NoSparks code does work for me.
However, if you have a "Header" it will not work as you want. I modified Nosparks code to this. Hope NoSparks does not mind.
Code:
Sub nn()
With Sheets("Sheet1")
'get last row of col A
lr = .Cells(Rows.Count, "A").End(xlUp).Row
'move second value
For i = 2 To lr Step 3
.Cells(i, 2).Value = .Cells(i + 1, 1).Value
Next i
'remove rows where B is blank
.Range("B2:B" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub