This forum has been moved to TeachExcel.com
Ask all future questions in the New Excel Forum.
ExcelKey
Sub test()
lastrow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastrow Step 3
Cells(i, 2).Value = Cells(i + 1, 1).Value
Cells(i, 3).Value = Cells(i + 2, 1).Value
Cells(i + 1, 1).Value = ""
Cells(i + 2, 1).Value = ""
Next i
End Sub
Return to Macros and VBA Questions
Users browsing this forum: No registered users and 219 guests