Son dolu hücreden sonraki hücreye dolu hücre sayılarını toplama yaptırma

[Gold_Savt]

"M" sütununda 2.satıradan itibaren dolu hücrelerim var. ilk iki satırda dolu ama işlem görmemesi lazım.
Dolayısıyla
M3 hücresi dahil dolu hücrelerimin toplamını , en son dolu olan hücrenin altındaki boş hücreye yazmak istiyorum. Nerede hata ediyorum bilemedim
Birde son dolu hücreden sonraki B:M satır aralığının yazı rengini beyaz arka zeminini kırmızı yapmam lazım.
İlgilenen arkadaşlara gönülden teşekkür ederim.

'A1 hücresine SUM(M3:M5000) yazarak önce dolu hücre sayısını buluyorum
Dim dolusay As Integer
dolusay = CInt(Sayfa1.Cells(1, 1))   'A1 hücresine M sütununun doluluk sayısını çekiyorum
Range("M" & CStr(dolusay + 2) + 1).Formula = "=SUM(M3 & CStr(dolusay)"  'olmuyor

 

[Necdet]

Merhaba,

Deneyiniz :

Sub Makro1()

    Dim i As Long
    
    i = Cells(Rows.Count, "M").End(3).Row + 1
    
    Range("M" & i) = "=SUM(M2:M" & i - 1 & ")"
    
    With Range("B" & i & ":M" & i)
        .Interior.Color = vbRed
        .Font.Color = vbWhite
        .Font.Bold = True
    End With
    
End Sub

 

[Gold_Savt]

Teşekkür ediyorum Necdet Bey. Son hücreden sonraki gelen satırda, "B:M" satırının arkaplan rengi ve yazı rengini hangi kodla halledebilirim acaba.

 

[Necdet]

Merhaba,
Kodları verdiğim mesajı günledim, kodları inceleyiniz.