VBA Zählen

Sub Zaehlen()
Dim zeilen As Integer
Range("B2").Select
zeilen = Selection.CurrentRegion.Rows.Count - 4 'die ersten 4 Zellen abziehen
MsgBox "Anzahl aufgenommene Zeichnungen: " & zeilen, vbOKOnly, "ZEICHNUNGSANZAHL"
End Sub

Dieser Zählt immer die Anzahl der ausgefülten Zellen in der Spalte, wo die meisten Einträge stehen.
Ich möchte den Code aber haben das er nur in Spalte A Zählt. Wer weis um Rat
Mfg
Stephan