I need help to combine and sum rows of data in excel dependent on 3 conditions

Sub tot()
On Error Resume Next
r2 = 2
r = 2
outfile = "summary"
Sheets("checksat").Select
While Cells(r, 1) <> ""
kY = Cells(r, 2) & "." & Cells(r, 3) & "." & Cells(r, 5)
j = 0
j = Application.WorksheetFunction.Match(kY, Sheets(outfile).Range("a:a"), 0)
If j = 0 Then
j = r2
Sheets(outfile).Cells(r2, 1) = kY
Sheets(outfile).Cells(r2, 2) = Cells(r, 2)
Sheets(outfile).Cells(r2, 3) = Cells(r, 3)
Sheets(outfile).Cells(r2, 4) = Cells(r, 5)
r2 = r2 + 1
End If
Sheets(outfile).Cells(j, 5) = Sheets(outfile).Cells(j, 5) + Cells(r, 4)
r = r + 1

Wend



End Sub

Thanks for the reply.

Unfortunately, I'm VBA illiterate. When I paste this in to the VBA window and save it then try and run the macro, nothing seems to happen?

Is there anything I'm not doing that I'm supposed to?

ok i'm sending the file

Thank you so much, this is exactly what I need! The output is great.

One last question - when I run the macro myself, it works in so far as that no error message appears, but no summary table/output appears like the one in your file? Is there maybe some compatibility issue between excel versions? I'm on excel 2007 if that's useful

Don't worry, I was being really dense! Figured it out, thank you so much!

you are welcome, mark the thread as solved