Adımlar:

1. Excel Dosyanızı Açın: Excel dosyanızı açın ve "Geliştirici" sekmesini etkinleştirin. Eğer "Geliştirici" sekmesi görünmüyorsa, "Dosya" > "Seçenekler" > "Şeridi Özelleştir" yolunu izleyerek "Geliştirici" sekmesini etkinleştirin.
2. VBA Düzenleyicisini Açın: "Geliştirici" sekmesinde "Visual Basic" butonuna tıklayarak VBA düzenleyicisini açın.
3. Yeni Modül Ekleyin: VBA düzenleyicisinde, sol tarafta yer alan proje penceresinde dosyanızın ismine sağ tıklayın ve "Insert" > "Module" seçeneğini tıklayın. Yeni bir modül eklenecektir.
4. Kodu Ekleyin: Aşağıdaki kodu yeni eklediğiniz modüle yapıştırın:
   
   

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim wsSource As Worksheet
       Dim wsLog As Worksheet
       Dim lastRow As Long
       Dim copyRange As Range
   
       ' A ve B sayfalarını tanımla
       Set wsSource = ThisWorkbook.Sheets("A")
       Set wsLog = ThisWorkbook.Sheets("B")
   
       ' Değişiklik A sayfasında mı kontrol et
       If Not Intersect(Target, wsSource.Range("A1:Z1000")) Is Nothing Then
           Application.EnableEvents = False
   
           ' A sayfasında değişiklik olduğunda log sayfasına kopyala
           Set copyRange = Target
           lastRow = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Row + 1
           copyRange.Copy Destination:=wsLog.Cells(lastRow, 1)
   
           Application.EnableEvents = True
       End If
   End Sub