Sub test()
Dim j As Integer, k As Integer
Worksheets("sheet1").Activate
Range(Range("A2"), Range("A2").End(xlToRight)).Cut
Range("a1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range("a2").EntireRow.Delete
j = Range("A1").End(xlDown).Row
For k = j To 2 Step -1
If k Mod 2 <> 0 Then
Range(Cells(k, 1), Cells(k, 1).End(xlToRight)).Copy Cells(k - 1, 1).End(xlToRight).Offset(0, 1)
Cells(k, 1).EntireRow.Delete
End If
Next k
End Sub
Sub undo()
Worksheets("sheet1").Cells.Clear
Worksheets("sheet2").Cells.Copy Worksheets("sheet1").Cells(1, 1)
End Sub
DON'T MISS