Excel: Wie kann ich erkennen ob Zeile geändert wurde

Dim b_bussy As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 ->Bei Änderungen in der Arbeitsmappe wird für jede geänderte Zelle
 ->in der betreffenden Zeile in Spalte A das Datum gesetzt
 ->Von der Änderung ausgenommen, ist die Zeile 1 eines jeden Blattes,
 ->um Überschriften nicht zu überschreiben
 ->Löscht man ganze Zeilen, geht das an diesem Makro vorbei.
 ->Löschen von ganzen Zeilen wird nicht erfaßt !!!
  
  Const Spalte_A = 1
  
  Dim Zelle As Range, Datum As Date
  
 ->Prüfen, ob Makro gerade läuft und das Datum ändert
  If Not b_bussy Then
   ->Erneute Makro-Verarbeitung sperren
    b_bussy = True
   ->Datum bestimmen
    Datum = Format(Now(), yyyy.mm.dd)
    
   ->Für alle geänderten Zellen
    For Each Zelle In Target
     ->In Zeile 1 (Überschriften-Zeile) keine Kennung setzen
      If Zelle.Row <> 1 Then
       ->Datum bzgl. betreffender Zeile in Spalte A setzen
        Sh.Cells(Zelle.Row, Spalte_A).Value = Datum
      End If
    Next
   ->Erneute Makro-Verarbeitung freigeben
    b_bussy = False
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 ->Verhindern, daß ganze Zeilen oder Spalten selektiert werden
  If (Target.Rows.Count = (Target.Count \ 256)) Or _
      Target.Columns.Count = (Target.Count \ 65536) _
      Then Target.Item(1).Select
End Sub