Lijkt me voldoende:

Sub M_snb()  
   Sheets("BLAD1").columns(6).find("totaal",,,1).offset(,1)= "=SUM(" & columns(7).specialcells(2,1).address & ")"
End Sub