I'm still trying things so you got a bit of code that
isn't .. erm... correct.

Here is the "real" end bit.

Loop

'ActiveCell.Offset(0, ActiveCell.Column - 1).Select
ilCol = ActiveCell.Column

Cells(ilRow, ilCol).Select
Set olR2 = ActiveCell

olR1.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Cut
olR2.Select
'ActiveSheet.Paste
Selection.PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

End Sub