VBA for combined rows with similar text and sum

[novice_excel_2012]

Hello experts. I need a vba that combined the customers’ name in Column F and sum the amount in Column N and P. I know it’s quite complicated and here I am having hard time to search for the answer. Please help me. Here’s my sample:
Sample A.jpg
And I want with these results:
Sample B.jpg
Thank you in advance

[abduljaleel.mca]

Try this macro.

Sub combine_Data()

Dim strDataRange As Range
Dim keyRange As Range
Dim sum1, sum2 As Integer
LRA = Cells(Rows.Count, "F").End(xlUp).Row
Set strDataRange = Range("A2:P" & LRA)
Set keyRange = Range("F1")
strDataRange.Sort Key1:=keyRange, Header:=xlYes
Range("A1").Select

For i = 2 To Cells(Rows.Count, "F").End(xlUp).Row
If (Cells(i, 6).Value = Cells(i + 1, 6).Value) And Cells(i, 6).Value <> "" Then
sum1 = sum1 + Cells(i, 14) + Cells(i + 1, 14)
sum2 = sum2 + Cells(i, 16) + Cells(i + 1, 16)
Cells(i, 14) = sum1
Cells(i, 16) = sum2
Rows(i + 1 & ":" & i + 1).Delete
i = i - 1
sum1 = 0
sum2 = 0
End If
Next i

End Sub

[novice_excel_2012]

I'll try it later I'm on field

[novice_excel_2012]

Hi.
I got an error that says Run time error '6'.
and the highlighted was focus on this line ...

sum2 = sum2 + Cells(i, 16) + Cells(i + 1, 16)

[novice_excel_2012]

I forgot to mention that I have 2400 rows and the last row contains the sum of column P.

[jindon]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[novice_excel_2012]

I am attaching the sample workbook

[jindon]

Try

Sub test()
    Dim a, i As Long, ii As Long, e
    a = Sheets("before").Cells(1).CurrentRegion.Resize(, 16).Value
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 2 To UBound(a, 1)
            If Not .exists(a(i, 6)) Then
                .Item(a(i, 6)) = .Count + 2
                For ii = 1 To UBound(a, 2)
                    a(.Count + 1, ii) = a(i, ii)
                Next
            Else
                For Each e In Array(14, 16)
                    a(.Item(a(i, 6)), e) = a(.Item(a(i, 6)), e) + a(i, e)
                Next
            End If
        Next
        i = .Count + 1
    End With
    Sheets.Add.Cells(1).Resize(i, UBound(a, 2)).Value = a
End Sub

[novice_excel_2012]

Thank you very much jindon! What a relief!