PC-HELP.CZ

Ahoj všem,
prosím o radu, jak zaznamenávat změny v buňkách. Poskládal jsem si makro, které vypadá takto:

Dim OldVal, Pozice

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldVal = Target
    Pozice = ActiveCells.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range, i, radek
    Dim JmenoPC, JmenoExcel
      
Set KeyCells = Range("A1:AZ9999") ' *** hlídaná oblast ************

    JmenoPC = Environ("UserName")
    JmenoExcel = Application.UserName
    NewVal = Target.Value
                        
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

radek = 1   'nastaveni radek jako 1
For i = 1 To Cells.SpecialCells(xlLastCell).Row
    If Sheets("Zmeny").Cells(i, 1) <> "" Then
        radek = radek + 1
    End If
Next
    
    Sheets("Zmeny").Cells(radek, 1).Value = Format$(Now, "yyyy/mm/dd hh:nn:ss")
    Sheets("Zmeny").Cells(radek, 2).Value = JmenoPC
    Sheets("Zmeny").Cells(radek, 3).Value = JmenoExcel
    Sheets("Zmeny").Cells(radek, 4).Value = Pozice
    Sheets("Zmeny").Cells(radek, 5).Value = OldVal
    Sheets("Zmeny").Cells(radek, 6).Value = NewVal
    
    
    End If
End Sub

Na Listu1 jsou hlídané hodnoty, při změně buňky chci zapsat do Superskrytého listu Zmeny řádek. A moje problémy:
1. Pokud změním buňku A1 z hodnoty "AAA" na "BBB" zapíše se vše v pořádku (OldVal = "AAA", NewVal = "BBB"
Pokud opět změním buňku A1 z hodnoty "BBB" na "CCC" zapíše se OldVal = "AAA", NewVal = "CCC" a to je chyba

2. Do proměnné pozice se mi uloží aktuální pozice kurzoru - a já bych tam potřeboval pozici změněné buňky.

Díky všem za radu

Použití SpecialCells spustí selectionchange.

Zkus použít lepší způsob hledání posledního řádku

(třeba radek = Sheets("Zmeny").Cells(1, 1).CurrentRegion.Rows.CountLarge + 1)

nebo Application.EnableEvents