VBA Code Delete Cell Content if met criteria " "

Sub macro_1()
Dim count
For count = Range("A" & Rows.count).End(xlUp).Row To 7 Step -1
    If Range("A" & count) = "" Then Rows(count).Delete
Next count
End Sub

works for me..