Code optimieren

Ich habe folgenden Code, damit bei jedem Verlassen der Zeile in
Spalte A in Zelle H1 die Anzahl der Zeilen angegeben wird.
Danach soll wieder in die letze verwendete Zelle zurückgekehrt werden.Jedoch wird dieser Code sehr häufig ausgeführt.
Wie kann ich das Abstellen? Vielen Dank.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a:A")) Is Nothing Then
a = Target.Address
ActiveCell.Select
ZNR = Selection.Cells(Selection.Cells.Count).Row
Range("H1").Select
Selection.FormulaR1C1 = ZNR
Range(a).Select
End If
End Sub