Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Range2Check As Range

Dim LogRow As Integer
Set Range2Check = Range(Sheet1.Cells(1, 1), Sheet1.Cells(11, 2))
If Target.Row < 12 And Target.Column < 3 Then

    ' az A1:K2 tartomány változott

    LogRow = Sheet2.UsedRange.Rows.Count + 1

    Sheet2.Cells(LogRow, 1).Value = Time

    Sheet2.Cells(LogRow, 2).Value = Target.Address

    Sheet2.Cells(LogRow, 3).Value = Target.Value

End If
   
End Sub