Additionner des valeur correspondant à un critère

Bonjour,

Sur la Feuille 1 j'ai une balance d'un client présentée de la manière suivante :
Voir sur l'image

Donc dans la cellule B30 de ma feuille2 d'obtenir la somme des soldes de 2014 appartenant aux comptes 411...418 en créant une macro...
Je vous ai pris le tableau mieux présenté en capture car quand je valide le poste toute se décale...
Je sais vraiment pas comment faire. J'ai réussi à importer tous les montants grâce à une boucle :
Dim i As Long
Dim Fin As Long
Dim j As Long

Fin = Sheets("Sheet").Range("A5000").End(xlUp).Row
j = 30

For i = 10 To Fin
If Left(Sheets("Feuil1").Range("A" & i).Value, 3) = "411" Then
Sheets("Feuil2").Range("A" & j).Value = Sheets("Feuil1").Range("B" & i).Value
j = j + 1
End If
If Left(Sheets("Feuil1").Range("A" & i).Value, 3) = "413" Then
Sheets("Feuil2").Range("A" & j).Value = Sheets("Feuil1").Range("B" & i).Value
...
Mais du coup cela m'importe juste les lignes correspondantes sur la Feuil1 mais il me faudrait les additionner dans la même cellule...

Comment puis-je procéder ?

Merci beaucoup d'avance pour vos réponse.