Sumar celdas por medio de una macro

Ok en un modulo pegas este macro:

Sub resumen()
'4c7569735f50
Application.ScreenUpdating = False
Sheets(2).Range("A:C").Clear
Sheets(1).Select ' selecciona la hoja1
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Next.Select
[A1] = "Proveedor"
[b1] = "Vencido"
[c1] = "Vencer"
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A1").Select
'realiza suma
Dim b As Long
Dim v As Long
b = Application.WorksheetFunction.CountA(Sheets(1).Range("a:A"))
v = Application.WorksheetFunction.CountA(Sheets(2).Range("a:A"))
If b <= 1 Then Application.ScreenUpdating = True: Exit Sub
Dim base As Range
Dim resumen As Range
For Each resumen In Sheets(2).Range("A2:" & "A" & v)
For Each base In Sheets(1).Range("B2:" & "B" & b)
If resumen = base And base.Offset(0, -1) < Date Then _
resumen.Offset(0, 1) = resumen.Offset(0, 1) + base.Offset(0, 1)
If resumen = base And base.Offset(0, -1) >= Date Then _
resumen.Offset(0, 2) = resumen.Offset(0, 2) + base.Offset(0, 1)
Next
Next
Set base = Nothing
Set resumen = Nothing
Application.ScreenUpdating = True
MsgBox "Resumen Completado", vbInformation
End Sub

El macro se llama resumen

Este macro considera que tu base esta en la hoja1 desdé la celda a1 en donde la primera fila son tus rótulos.

El resumen lo dejara en la hoja2