Você pode ocultar as linhas em vez de excluí-las.
Eu modifiquei seu código para ocultar as linhas:
Public Sub hiderows()
Dim thisrange As Range
Set thisrange = ActiveSheet.Range("B11:B17")
For CellRange = thisrange.Rows.Count + 10 To 11 Step -1
If ActiveSheet.Cells(CellRange, 2).Value = "" Then
Rows(CellRange).EntireRow.Hidden = True
End If
Next
End Sub
O ponto chave é a linha If ActiveSheet.Cells(CellRange, 2).Value = "" Then
onde eu verifico o valor da célula. Ele lê o valor, não a fórmula .