Just adjust the worksheet name, first row, and last row variables and it
should work for you. If you do not want the entire row deleted let me know.
If this helps click "YES" below.
Sub DeleteRows()
Dim wks As Worksheet
Dim lngFirstRow As Long
Dim lngLastRow As Long
Set wks = Sheets("Sheet1")
lngFirstRow = 2
lngLastRow = wks.Cells(Rows.Count, "A").End(xlUp).End
' clears empty rows from sheet
With wks
For i = lngLastRow To lngFirstRow Step -1
If Trim(.Cells(i, "A")) = "" Then
.Cells(i, "A").EntireRow.Delete Shift:=xlUp
End If
Next i
End With
End Sub
--
Cheers,
Ryan