macroda sadeleştirme hızlandırma yapabilirmiyiz

[eneskus]

arkadaşlar yardımlarınızla veri sayfasındaki r sütünunda ki plakalarla diğer sayfalara veri aktarma yaptım
ancak veri girişi yaptıktan sonra sayfalara geçmeden güncellenmiyor birde veri arttıkca işlem yavaşlıyor süre alıyor

yapmak istediğim veri girişi yaptıkça diğer sayfalara hemen aktarması ve eski veride güncelleme yaptıkca hemen güncellesin

yardımlar için şimdiden cokkk teşekkürlerveri haricindeki her sayfaya bu macro yu ekliyorum bunu sadece veri dosyasına ekleyerekte yapsak

Private Sub Worksheet_Activate()
Dim c As Range, sat As Long, ilkadres As Variant
Range("A5:AU" & Rows.Count).ClearContents
sat = 5
With Sheets("VERİ").Range("R:R")
Set c = .Find(ActiveSheet.Name, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Cells(sat, "A") = Sheets("VERİ").Cells(c.Row, "A")
Cells(sat, "B") = Sheets("VERİ").Cells(c.Row, "B")
Cells(sat, "C") = Sheets("VERİ").Cells(c.Row, "C")
Cells(sat, "D") = Sheets("VERİ").Cells(c.Row, "D")
Cells(sat, "E") = Sheets("VERİ").Cells(c.Row, "E")
Cells(sat, "F") = Sheets("VERİ").Cells(c.Row, "F")
Cells(sat, "G") = Sheets("VERİ").Cells(c.Row, "G")
Cells(sat, "H") = Sheets("VERİ").Cells(c.Row, "H")
Cells(sat, "I") = Sheets("VERİ").Cells(c.Row, "I")
Cells(sat, "J") = Sheets("VERİ").Cells(c.Row, "J")
Cells(sat, "K") = Sheets("VERİ").Cells(c.Row, "K")
Cells(sat, "L") = Sheets("VERİ").Cells(c.Row, "L")
Cells(sat, "M") = Sheets("VERİ").Cells(c.Row, "M")
Cells(sat, "N") = Sheets("VERİ").Cells(c.Row, "N")
Cells(sat, "O") = Sheets("VERİ").Cells(c.Row, "O")
Cells(sat, "P") = Sheets("VERİ").Cells(c.Row, "P")
Cells(sat, "Q") = Sheets("VERİ").Cells(c.Row, "Q")
Cells(sat, "R") = Sheets("VERİ").Cells(c.Row, "R")
Cells(sat, "S") = Sheets("VERİ").Cells(c.Row, "S")
Cells(sat, "T") = Sheets("VERİ").Cells(c.Row, "T")
Cells(sat, "U") = Sheets("VERİ").Cells(c.Row, "U")
Cells(sat, "V") = Sheets("VERİ").Cells(c.Row, "V")
Cells(sat, "W") = Sheets("VERİ").Cells(c.Row, "W")
Cells(sat, "X") = Sheets("VERİ").Cells(c.Row, "X")
Cells(sat, "Y") = Sheets("VERİ").Cells(c.Row, "Y")
Cells(sat, "Z") = Sheets("VERİ").Cells(c.Row, "Z")
Cells(sat, "AA") = Sheets("VERİ").Cells(c.Row, "AA")
Cells(sat, "AB") = Sheets("VERİ").Cells(c.Row, "AB")
Cells(sat, "AC") = Sheets("VERİ").Cells(c.Row, "AC")
Cells(sat, "AD") = Sheets("VERİ").Cells(c.Row, "AD")
Cells(sat, "AE") = Sheets("VERİ").Cells(c.Row, "AE")
Cells(sat, "AF") = Sheets("VERİ").Cells(c.Row, "AF")
Cells(sat, "AG") = Sheets("VERİ").Cells(c.Row, "AG")
Cells(sat, "AH") = Sheets("VERİ").Cells(c.Row, "AH")
Cells(sat, "AI") = Sheets("VERİ").Cells(c.Row, "AI")
Cells(sat, "AJ") = Sheets("VERİ").Cells(c.Row, "AJ")
Cells(sat, "AK") = Sheets("VERİ").Cells(c.Row, "AK")
Cells(sat, "AL") = Sheets("VERİ").Cells(c.Row, "AL")
Cells(sat, "AM") = Sheets("VERİ").Cells(c.Row, "AM")
Cells(sat, "AN") = Sheets("VERİ").Cells(c.Row, "AN")
Cells(sat, "AO") = Sheets("VERİ").Cells(c.Row, "AO")
Cells(sat, "AP") = Sheets("VERİ").Cells(c.Row, "AP")
Cells(sat, "AQ") = Sheets("VERİ").Cells(c.Row, "AQ")
Cells(sat, "AR") = Sheets("VERİ").Cells(c.Row, "AR")
Cells(sat, "AS") = Sheets("VERİ").Cells(c.Row, "AS")
Cells(sat, "AT") = Sheets("VERİ").Cells(c.Row, "AT")
Cells(sat, "AU") = Sheets("VERİ").Cells(c.Row, "AU")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
End Sub