Add Like

[pastorkc]

Is there a code I can run to look down Column A and Column B then add those to lines together and place the value in Column D and delete the second line?

Transit Invoice Sheet.xlsm
	A	B	C	D
1	Check #	Vendor Name	Account Description	Direct To Program
2	21861	Logical, LLC	Professional Services Transit	8.00
3	920	Brand Wise	Professional Services Transit	1,961.55
4	920	Brand Wise	Professional Services Transit	2,333.23
5	JE Accrual	New Creative Transit	Professional Services Transit	39.58
6	21924	K&R Services	Professional Services Transit	605.00
7	21923	K&R Services	Professional Services Transit	1,770.00
8	7100	Data Facts	Professional Services Transit	19.50
9	21949	Language Line Services, Inc	Professional Services Transit	30.00
10	JE Accrual	Audit Accrual	Professional Services Transit	975.00
11	21875	All Pest Solutions, Inc.	Transit Building Maintenance	85.00
12	21952	United Elevator Services	Transit Building Maintenance	13,100.50
13	929	BankCard Center	Transit Building Maintenance	358.51
14	21924	K&R Services	Transit Building Maintenance	255.00
15	21923	K&R Services	Transit Building Maintenance	1,300.00
16	21868	Carpenter Bus Sales	Transit Maintenance	1,015.21
17	21893	O'Reilly Auto Parts	Transit Maintenance	186.88
18	21893	O'Reilly Auto Parts	Transit Maintenance	39.44
19	21970	Carpenter Bus Sales	Transit Maintenance	1,108.90
20	21892	Carpenter Bus Sales	Transit Maintenance	908.51
21	21892	Carpenter Bus Sales	Transit Maintenance	481.61
22	21963	Carpenter Bus Sales	Transit Maintenance	635.49
23	21967	Moody's Tire & Auto Service	Transit Maintenance	35.00
24	21972	Carpenter Bus Sales	Transit Maintenance	84.94
25	21897	Carpenter Bus Sales	Transit Maintenance	2,183.83
26	21906	Moody's Tire & Auto Service	Transit Maintenance	35.00
27	21921	K&R Services	Transit Maintenance	2,200.00
28	21922	K&R Services	Transit Maintenance	1,895.00
29	21924	K&R Services	Transit Maintenance	1,135.00
GL Transit Report

 

[Candyman8019]

Give something like this a try:

Private Sub SortMerge()
Dim lrow As Long

'sort by columns A and B
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=Range("A2:A300") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=Range("B2:B300") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("A1:D300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
'If columns A and B are the same, then sum the totals and delete the second line.
lrow = Worksheets("Sheet2").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

For x = lrow To 2 Step -1
    If Range("A" & x).Value = Range("A" & x - 1).Value And Range("B" & x).Value = Range("B" & x - 1).Value Then
        Range("D" & x - 1).Value = Range("D" & x - 1).Value + Range("D" & x).Value
        Range("D" & x).EntireRow.Delete
    End If
Next x
End Sub

 

[pastorkc]

Awesome thank you

 

[Candyman8019]

You're very welcome.

 

[Joe4]

Note: When marking a post as the solution, please mark the actual post containing the solution (not your own post acknowledging some other post was the solution).
I have updated this thread for you.