Make recorded macro loop

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.