Sumar celdas aleatorias

Buenas tardes; deseo saber como hacer para sumar celdas aleatorias, es decir, hice un programa que pretende capturar los datos de las facturas por cancelar y decir cual es el monto que se le adeuda a los proveedores, algo así como cuentas por pagar, entonces, parte de mi modulo es esta: pero no hace nada. Porque no se como usar las funciones de sumar. Gracias de antemano. Por supuesto las variables están declaradas e inicializadas en 0.

counter=8

Do While Worksheets("HistorialFact").Cells(counter, 5).Value = Worksheets("CtasxPagar").Cells(counter, 1).Value
If Worksheets("HistorialFact").Cells(counter, 8).Value = "CRÉDITO" Then
If Worksheets("HistorialFact").Cells(counter, 9).Value = "15" Then
fechainicial = Worksheets("HistorialFact").Cells(counter, 2).Value
días = DateDiff("d", fechainicial, Now)
If días < 15 Then
Rem Pasan a la celda de Montos por vencer
Numero1 = Numero1 + Worksheets("HistorialFact").Cells(counter2, 6).Value
Worksheets("CtasxPagar").Cells(counter2, 3).Value = Numero1
Else
Rem Pasan a la celda de Montos vencidos
Numero2 = Numero2 + Worksheets("HistorialFact").Cells(counter2, 6).Value
Worksheets("CtasxPagar").Cells(counter2, 4).Value = Numero2
End If
counter = counter + 1
counter2 = counter2 + 1
Else
If Worksheets("HistorialFact").Cells(counter, 9).Value = "30" Then
fechainicial = Worksheets("HistorialFact").Cells(counter, 1).Value
días = DateDiff("d", fechainicial, Now)
If días < 30 Then
Rem Pasan a la celda de Montos por vencer
Numero3 = Numero3 + Worksheets("HistorialFact").Cells(counter2, 6).Value
Worksheets("CtasxPagar").Cells(counter2, 3).Value = Numero3
Else
Rem Pasan a la celda de Montos vencidos
Numero4 = Numero4 + Worksheets("HistorialFact").Cells(counter2, 6).Value
Worksheets("CtasxPagar").Cells(counter2, 4).Value = Numero4
End If
counter = counter + 1
counter2 = counter2 + 1
End If
End If
Else
counter = counter + 1
End If
Loop