Çağrılan nesne istemcilerden ayrılmış hatası neden olur?

[aureliane]

hazırlamakta olduğum excel dosyamda düzensiz olarak bu hatayı alıyorum, örneğin aşağıdaki makro normalde çalışıyor ama bazen bu hatayı veriyor ve çalışma kitabını kapatıp açmadan düzelmiyor. bunun sebebi ne olabilir. neyi düzeltmem gereklidir.

Sub otomatyenisatır()

    ActiveSheet.Unprotect
    Rows("1:1").Select
    Selection.Copy
    Range("a8").Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 15
    ActiveCell.Offset(0, 2).Select
    ActiveCell = CDate(Format(Now, "dd/mmmm/yyyy"))
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

 

[aureliane]

 

[aureliane]

tahminime göre makrodaki kopyaladığın satırı a8 hücresinden aşağı son dolu satırın bir altına ekle komutu hata veriyor, her zaman değil ama arada sırada veriyor. orayı nasıl değiştirebiliriz.

 

[aureliane]

Sub otomatyenisatır()

    ActiveSheet.Unprotect
    Dim SATIR As Long
    SATIR = [a8].End(xlDown).Row + 1
    Rows(SATIR).Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Copy
    Range("a8").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Selection.RowHeight = 15
    ActiveCell.Offset(0, 2).Select
    ActiveCell = CDate(Format(Now, "dd/mmmm/yyyy"))
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

bu şekilde çözdüm şimdilik, korhan hocamın başka bir arkadaşa verdiği çözümden esinlendim, önce satır açtım sonra kopyalanan satırı yapıştırdım.