still have empty cell after run Delete empty cells code

I have to run few time to delete all empty cell if Range A5:A20 are empty. Please help me

Dim lastrow As Long
Dim iCell As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For iCell = 1 To lastrow
    If Range("A" & iCell) = "" Then
        Range("A" & iCell).Delete Shift:=xlUp
    End If
Next iCell

Regards,
tt3

Go backwards:

Sub hfdjs()

Dim lastrow As Long
Dim iCell As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For iCell = lastrow To 1 Step -1
    If Range("A" & iCell) = "" Then
        Range("A" & iCell).Delete Shift:=xlUp
    End If
Next iCell
End Sub

Sure..........

For I=1 to 100 Step 1

means I=1,2,3,4,...........100

For I=100 to 1 Step -1

means i=100,99,98,97...............1