Alter Sum Amounts by matching two criteria

[Panoos64]

Hi to all of you, kindly requesting to provide me support for a VBA code so that to alter my below data. If the columns “A” and “C” match, should “SUM” the amounts for each month from Col. “D” to “P”. Therefore that the spreadsheet contains 5000+ rows. I present below an extract of my original data and the expected result. Thank you all in advance

Original data

Expected result

 

[alansidman]

Cannot manipulate data in pictures. Suggest you upload samples using XL2BB

 

[mohadin]

Hi
Try

Sub test()
    Dim a, b As Variant, i, ii
    a = Range("a5:a" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 16)
    ReDim b(1 To UBound(a, 2))
    With CreateObject("scripting.dictionary")
        For i = 2 To UBound(a)
            For ii = 1 To UBound(b): b(ii) = a(i, ii): Next
            If a(i, 1) <> 0 Then
                If Not .exists(a(i, 1)) Then
                    .Add a(i, 1), b
                Else
                    For ii = 4 To UBound(b): b(ii) = b(ii) + .Item(a(i, 1))(ii): Next
                    .Item(a(i, 1)) = b
                End If
            End If
        Next
        Sheets("sheet2").Cells(1, 1).Resize(, UBound(a, 2)) = a
        Sheets("sheet2").Cells(2, 1).Resize(.Count, UBound(a, 2)) = Application.Index(.items, 0, 0)
    End With
End Sub

PS: Result in sheet names sheet2

 

[Panoos64]

Thank you Mohadin! it works perfect and it based on my data. Thank you for your time spent for my project. Hv a great, lovely day!

 

[Panoos64]

Cannot manipulate data in pictures. Suggest you upload samples using XL2BB

I am sorry alan, i presented in picture because is more clear the columns and rows. My data was in a huge file and so i couldn't. However thank for your interesting to resolve my issue.

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe