Sub DeleteEmptyRows()
'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
                Rng(lngRow).EntireRow.Delete
            End If
        Next lngRow
    Else
        Exit Sub
    End If
Application.ScreenUpdating = True

End Sub