sichtbare Zellen

ich möchte mit dem folgenden Macro nur mit Autofilter sichtbare
Zellen verarbeiten.
Leider klappt dies nicht so ganz wer kann mir helfen??

Code:

Public Sub zaehler()
Sheets("Ausgabe Wartung").Activate
ActiveSheet.Unprotect
If Not Sheets("Ausgabe Wartung").Range("C9").Value = "" Then
Sheets("Ausgabe Wartung").Range("B9").Value = "1"
Sheets("Ausgabe Wartung").Range("B10").Value = "2"
Range("B9:B10").Select
Selection.AutoFill Destination:=Range(Cells(9, 2), Cells(Cells(Rows.Count, 3).End(xlUp).Row, 2)), Type:=xlFillDefault
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub