VBA for combined rows with similar text and sum

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