Calcul somme vba excel

bonsoir j'aimerais bien parcourir un tableau excel en faisant la somme des valeurs d'une colonne
j'ai fai en vba ce script mais ca ne marche pas

Private Sub CheckBox1_Click()
Dim v As Long
Dim somme As Long

b = CheckBox1.Value
DerniereLigne = Worksheets("ship1").Range("A10").CurrentRegion.End(xlDown).Row
If b = True And Range("l2").Value = "january" Then
somme = 0
For i = 10 To DerniereLigne
If Worksheets("ship1").Range("Ag" & i) = "A8 MultSc" Then
somme = somme + Worksheets("ship1").Range("t" & i)
End If

Next i
msgbox somme
End If
End Sub