If you want variety, this one will allow you to enter the Column letter and use that as the basis for deleting all empty rows (use with caution, if you have partially used cells above your data).
'This is one I developed to allow user to enter letter
'of the column that is used for deleting.
Application.ScreenUpdating = False
Dim myColm As String
Dim n As String
Dim rng As Range
Dim lngRow As Long
myColm = InputBox("Enter Letter")
If myColm <> "" Then
n = myColm
Set rng = Range(n & "1", Range(n & "65536").End(xlUp))
For lngRow = rng.Rows.Count To 2 Step -1
If rng(lngRow) = "" Then
Application.ScreenUpdating = True
old, slow, and confused
but at least I'm inconsistent!