Tabellenbereich prüfen-löschen

ich möchte in meinem Tabellenballt einen Zellbereich überprüfen und wenn ein teil dieses Bereiches null ist, dann soll er gelöscht werden und die darunter liegenden Zellen sollen dann hochrutschen. ich habe das versucht mit:

Sub loeschen()
Dim x As Long
Dim letzte As Long
letzte = Range("B13:B30").Row
For x = letzte To 2 Step -1
If Cells(2, x) = "" Then
Else: Rows(x).Delete
End If
Next

End Sub

Das habe ich in dem entsprechendem Tabellenblatt eingefügt, nur es funktioniert nicht.
Wie muss ich das abändern, damit es klappt??

Bin für jede Hilfe sehr dankbar...komme da nicht weiter.