vba Leere zellen löschen wenn

Sub Leerzeilen_löschen()
Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete
End Sub

hab das ganze mit if davor und & und then probiert aber das will es auch nicht

Sub Leerzeilen_löschen()
if Range("B1:B100").SpecialCells(xlCellTypeBlanks) & ("C1:C100").SpecialCells(xlCellTypeBlanks)  _
_
then.EntireRow.delete
End if
End Sub

aber das geht auch nicht
bitte um hilfe
Lieben Dank Carmen