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.
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
For i = lngLastRow To lngFirstRow Step -1
If Trim(.Cells(i, "A")) = "" Then
.Cells(i, "A").EntireRow.Delete Shift:=xlUp