Clearcontents Hatası

Değerli arkadaşlar, B7 hücresinden itibaren veri girince A7 hücresinden aşağı doğru sıra numarasını otomatik olarak alıp veriyi silince sıra numarasının da silinmesini istiyorum. Ancak Me.Range("A7:A" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row).ClearContents kısmında hata veriyor. İlginiz için şimdiden teşekkürler

Me. Neden var

(18/04/2023, 16:44)berduş yazdı: Me. Neden var

Worksheet_Change(ByVal Target As Range) ile başlayan sistemde aynı sayfada çalışması için diye biliyorum.

Worksheet_Change zaten aktif sayfada çalışır

(18/04/2023, 16:57)berduş yazdı: Worksheet_Change zaten aktif sayfada çalışır

Me. kaldırdım yine aynı kardeş

aşağıdaki kodu denediğimde hata vermedi
tam olarak ne yapınca hata veriyor?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Me.Range("B:B")) Is Nothing Then Exit Sub



    If Target.Value <> "" Then

        Target.Offset(0, -1) = Target.Row - 6

        Me.Range("A7:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents

    Else

        Target.Offset(0, -1).ClearContents

    End If

End Sub