Reverse the order of a macro the rearranges columns

Try this macro

Sub Macro1()
Dim LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:D" & LR).Cut Range("H1")
Range("A1:D" & LR).Delete Shift:=xlToLeft
End Sub