formül kopyalama

[igultekin2000]

iyi akşamlar;
formülü altsatıra kopyalamada bazen sorun yaşıyorum. genelde

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target = Empty Then Exit Sub
If Target.Column = 2 Then 'hangi satırda işlem olacağı
If Target.Column = 2 And Target.Row = 1 Then Exit Sub  'formülün hangi satırda uygulanmayacağın belirtir
If Target.Column = 2 And Target.Row = 2 Then Exit Sub 'Target.Row = 1 formülsüz .nci satır sayısı

Range("I3").Copy Range("I" & Target.Row)
    
Application.CutCopyMode = False
End If
End Sub

bunu kullandığımda elle girişlerde sorun yokta sayfaya veriyi makroyla aktardığımda ilgili formü bazen tetiklemiyor , butonla

Sub Surukle()
    On Error Resume Next
    Application.EnableEvents = False
    son_satir = Sheets("HAREKET").Range("P65530").End(3).Row
    Sheets("HAREKET").Range("A2:D2").AutoFill Destination:=Sheets("HAREKET").Range("A2:D" & son_satir) 'formülleri bir alt satıra kopyalama
    Sheets("HAREKET").Range("F2:O2").AutoFill Destination:=Sheets("HAREKET").Range("F2:O" & son_satir)
Application.EnableEvents = True
End Sub

bu kodu kullandığmda formül yukarı doğruda kopyalayıp başlık düzenini bozuyor. ikisi içinde çözüm arıyorum. Teşekkürler.