Fjerne linjer med vba

Hej

Jeg er ved at lave en kode der skal fjerne overflødige linjer i et regneark. Dog står der en formel i linjen, men hvis der ikke er noget data, så skal linjen slettes til sidst for at få tabellen til at se pænere ud.

Jeg prøver at søge på en tom celle og derefter slette linjen med den sub:

With Range("h2:h100")

Cells.Find("", LookIn:=xlValues).Activate
End With

Men den finder den første tomme celle i regnearket.

Hvad går galt?

Mvh Mikkel