I have recorded the below macro but I need it to loop until there is nothing left in the last column.
Can anyone assist?
Thanks,
Sub ARS2013test()
'
' ARS2013test Macro
'
' Keyboard Shortcut: Ctrl+t
'
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(1, -2).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1:A31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlUp).Select
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub
Moderator's Edit: Use code tags when posting code. To do so in future, select the code and click on the # icon at the top of your post window.
Bookmarks