Looking for help on this, I'm erroring out on my pasting line...
Sub TEST()
i = 1
n = 2
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For n = 2 To lastrow
With ActiveSheet
.Range("A" & n, Range("A" & n).End(xlToRight)).Cut
.Range("A" & n).End(xlToRight).Paste
End With
Next n
End Sub
Sub TEST()
i = 1
n = 2
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For n = 2 To lastrow
With ActiveSheet
.Range("A" & n, Range("A" & n).End(xlToRight)).Cut
.Range("A" & n).End(xlToRight).Paste
End With
Next n
End Sub