Hi Dan,

Following should do the job, starting from your reference column

Sub DeleteRows()
Application.Goto Reference:="R65536C1"
Rows("65536:65536").Select
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

HTH
Cheers
Carim