Slette tomme celler i excel

Hej

jeg har et excel ark, hvor jeg i kolonne E160 til E166 har en adresse.
Jeg søger muligheden for via VBA at slette eventuelle tomme celler i denne og flytte resten op. Cellerne er ikke blanke selvom de er tomme, da der står en formel i dem.

Jeg fandt denne skrevet af kabbak, som jeg har forsøgt at modificere uden det store held.(det burde egentlig ikke være så svært, men ...)

bruger Excel 2007

Sub Makro1()
    slut = Range("A65536").End(xlUp).Row
    For i = slut To 1 Step -1
        If IsEmpty(Cells(i, 1)) Then
            Rows(i).Delete
        End If
    Next
End Sub