prüfen, ob Spalte geändert wurde

Private Sub Worksheet_Change(ByVal Target As range)
Static BN
inhalt = Target
adresse = Target.Address
BN = "Daten1"
If adresse = "$A$2" Then ' statt zelle A2 auf A1 bis 100 erweitern
Daten_Lesen
Arg1 = Worksheets("Daten1").range("A2").Value
End If
End Sub

wie bekomme ich heraus, in welche Zelle Daten etwas eingegeben wurde, bleibt das die aktive ZElle?
Danke im voraus und viele Grüße
Timo