Hilfe bei Makro

Sub Sortieren()
' Makro zum Sotieren der Tabelle von B11 bis GF110
Sheets("Dienste").Select
Range("B11:GF110").Select
ActiveWorkbook.Worksheets("Dienste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dienste").Sort.SortFields.Add Key:=Range( _
"C11:C110"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Dienste").Sort.SortFields.Add Key:=Range( _
"B11:B110"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dienste").Sort
.SetRange Range("B11:GF110")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Dieses Funktioniert soweit eigentlich auch, nur habe ich das Problem das alle zellen und Spalten wo eine Null drine steht als erstes nach dem sortieren steht.
Wie müßte das Makro aussehen das beim Sortieren die Nullen nicht mit Sortiert werden, und diese am Schluß stehen bleiben ?
Für Hilfe wäre ich Euch sehr Dankbar.
Gruß Michael