Visual Basic 6 - contatore celle Excel

Salve,
non riesco a creare con excel una specie di contatore,in pratica vorrei che in una determinata cella incrementi i numeri immessi in un'altra cella. le celle in questione le ho chiamate A1 e B1 dove a A1 metto ogni volta un numero diverso e su B1 devo visualizzare ogni volta che cambia il numero su A1 la somma dei numeri cambiati.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
i = 1
If Target.Address = Me.Range("A" & i).Address Then
Me.Range("B" & i).Value = Me.Range("B" & i).Value + Me.Range("A" & i).Value
End If
Application.EnableEvents = True
End Sub

Ora come fare per estendere quanto sopra a tutte le celle delle colonne A e B?
Grazie

bhe con un ciclo...

Grazie del suggerimento..ma non avendo molta confidenza con la programmazione...avrei bisogno di maggiori chiarimenti..devo usare un loop?

Ho provato così...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 10
If Target.Address = Me.Range("A" & i).Address Then
Me.Range("B" & i).Value = Me.Range("B" & i).Value + Me.Range("A" & i).Value
Exit For
End If
Next i
Application.EnableEvents = True
End Sub

ma alla cella 5 si blocca..mmm

I'm sorry..che sbadato..è OK
Grazie cmq

ma hai risolto?

p.s. Non fare + post di fila, usa edit x editare l'ultimo tuo post...

lol