VBA to vlookup and sum accross multiple worksheets

[Legacy 287389]

Hi good people!!,

I have this code:

Dim j As Integer, r As Range, k As Integer
Application.DisplayAlerts = False
Worksheets("sheet32").Delete
proceed:
Worksheets.Add
ActiveSheet.Name = "sheet32"
For j = 1 To Worksheets.Count
If Worksheets(j).Name <> "sheet32" Then
With Worksheets(j)
Set r = Range(.Range("A2"), .Cells(Rows.Count, "A").End(xlUp))
r.Copy Worksheets("sheet32").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End With
End If
Next j
Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range("$A$1:$A$100000").RemoveDuplicates Columns:=1, Header:= _
        xlNo
    Selection.End(xlUp).Select
End Sub

this code looks at sheets 1 to 31 and extracts a unique list into sheet 32. I am looking to extend this code to also, vlookup the unique list in all the sheets and sum all totals for each name in the list.
I have looked on the net, found some examples but not quite what I can use. all and any help will be greatly appreciated!. Thank you all!