yazılan değer toplansın

[asilme]

arkadaşlar elimde
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
[A1] = [A1] + 1
End Sub

bu şekilde formül var.Maus ile A1 hücresine tıkladığımda A1 hücresindeki değer 1 artıyor.ancak ben A sütunundan M sütununa kadar ve 1.satırdan 34.satıra kadar aynı formülü uygulamak istiyorum ancak yapamadım. yardım edebilirmisiniz.
Yalnız bilgisi olanlar var ise elle yazmak sureti ile yani A1 hücresine gelip rakam yazdığımda önceki rakamıda toplayarak yeni rakamı gösteren formül olabilirmi A1 de 21 yazıyor ben A1 hücresine gelip 4 yazınca A1 hücresi 25 olsun mümkünmü yardımcı olan arkadaşlara şimdiden teşekkürler hakkınızı helal edin.

 

[asilme]

arkadaşlar konu hakkında bilgisi olan yokmu yardım edermisiniz lütfen

 

[Ömer BARAN]

Merhaba.

Mevcut kod'u aşağıdaki ile değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:M34]) Is Nothing Then Exit Sub
    Target = Target + 1
End Sub