Hi sportsbarn

Not entirely sure what you're after but:

LastRow = Range("A65536").End(xlup).Row

will give you the last used row in column A.

Always delete from bottom to top.

Regards

Steve