To display same total value if registration number and month matches

Hi and welcome to the forum

Pictures are of little value. Honestly, no one wants to re-type your data to try and solve your issue. Additionally, we would only be guessing at how your data was structured, ie. formulas, formatting, etc. Additionally, due to how some browsers behave, many of our members cannot see uploaded pictures/images. Please do not take this route.

Please attach a sample file that represents what you have. The structure of your attachment should be the same structure as your actual data. Any proprietary information should be changed.

Include in the attachment any code you're currently using (whether it works or not) and an "After" of what you wish the output to be.

To attach a file to your post,
click advanced (next to quick post),
scroll down until you see "manage file",
click that and select "add files" (top right corner).
click "select files" find your file, click "open" click "upload" click 'done" bottom right. click "submit reply"

Once the upload is completed the file name will appear below the input boxes in this window.
You can then close the window to return to the new post screen.

Sub dd()
Dim a, z As New Collection, v,v1
a = Sheets("DATA").Range("A1").CurrentRegion.Value
For i = 2 To UBound(a, 1)
   On Error Resume Next
     z.Add Key:=CStr(a(i, 1)), Item:=New Collection
     With z(CStr(a(i, 1)))
        .Add Key:=CStr(Month(CDate(a(i, 2)))), Item:=Array(New Collection,CreateObject("System.Collections.Arraylist"),Month(Cdate(a(i,2))))
        If Weekday(CDate(a(i, 2))) = 1 Then
         .Item(CStr(Month(CDate(a(i, 2)))))(0).Add a(i, 2)
        ElseIf a(i,4) > 0 then
          .Item(CStr(Month(CDate(a(i, 2)))))(1).Add a(i, 4)
        End If
     End With
   On Error GoTo 0
Next i
Dim tt as long
With Sheets.Add
For i = 2 To UBound(a, 1)
    Set v = z(CStr(a(i, 1)))(CStr(Month(CDate(a(i, 2)))))(0)
    v1 = Application.Sum(z(CStr(a(i, 1)))(CStr(Month(CDate(a(i, 2)))))(1).Toarray())
     a(i, 5) = v.Count + v1
     a(i,6) = a(i,5) + v1
Next i
 .Cells(1, 1).Resize(UBound(a), )).Value = a
End With
End Sub

But you posted in the VBA section ...

In F2:

=E2:E61+1

What is you want to sum, you wan sum column E (weekend), or column F (Rest Work), i want clearly if same as REG (A) and month (B) and what with PH can you explain with clearly

Perhab like this
=SUM(D3:INDEX($D$2:$D$61,AGGREGATE(14,6,ROW($A$2:$A$61)-1/(($A$2:$A$61=A3)*($C$2:$C$61=C3)),1)))+E3
Or.like this
=SUM(INDIRECT("D" &AGGREGATE(15,6,ROW($A$2:$A$61)/(($A$2:$A$61=A2)*($C$2:$C$61=C2)),1) &":D" &AGGREGATE(14,6,ROW($A$2:$A$61)/(($A$2:$A$61=A2)*($C$2:$C$61=C2)),1)))+E2

Ok mark case as solved!!

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon (Next to Add Reputation) located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.