макрос суммы

[KApSuL]

Ребят помогите с макросом
есть Лист 1, 2,3 и общий
нужно, чтобы сумма считалась в лист общий в зависимости от номера по всем листам

по типу:
макрос ищет по листам в определённой строке номер, который указан в листе общий и суммирует столбцы под этим номером по листам

Ну, а вообще есть список продукции и № рабочего в 4-й строке
в разом нужно суммировать количество продукции по кодам, если найден номер рабочего в листах 1-31

[KApSuL]

никто не поможет?
ход мыслей пока такой

    Dim r As Range
    Dim ws As Worksheet
    Dim Work_numb As Range
    Dim i, j, x, y
    i = 0
    j = 0
    
    Set Work_numb = Cells(i + 1, j + 34)
    
    For Each ws In Worksheets
    Set r = ws.UsedRange.Rows(4).Find(Work_numb, , xlValues, xlWhole)
    x = ActiveCell.Row 
    y = ActiveCell.Column 
    Range(x.Value).Select
    Selection.Copy
    
    Worksheets("разом").Activate
        Range("AH4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Next