Combine like invoice items into total amount

I have invoices in a spreadsheet for which I need to 'rollup' or 'total' into a seperate spreadsheet.

For example:
On date 12/13/12 client ABC widgets has 14 different sales totaling $32,507,800
On date 02/02/13 client ABC widgets has 6 different sales totaling $50,000,100
On date 11/30/12 client ABC widgets has 2 different sales totaling $5,000

What I am trying to do is, for date 12/13/12, is to combine the 14 different sales into one single line on a different sheet. I have attached spreadsheet with two tabs; tab 1 is Sample data; tab 2 is Expected Results.

Thanks in advance for any comments.

I did try the pivot table but it isn't in the format that upper management is looking for. They want to see a sheet similar to the 'Expected_Results' tab. Thanks.

This is just what I am looking for. Is there a way to produce the same results in a macro environment. The reason is the number or data lines/rows is different every single day (i.e. some days it might be 20,000 lines, the next day it might be 30,000 lines. It need to somehow automate the production of the reports as a number of individuals running report are not familiar with pivot tables. Thanks

I tried this piece of code to get the results but not working the way I need it to. Not very familiar with VBA code for Pivot Tables so any assistance is appreciated. Thanks

Sub Create_PivotTable()
Dim PT As PivotTable
Dim PTCache As PivotCache

Worksheets("SAMPLE").Select

    Columns("M:W").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("M:W").ClearContents

    Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion)
    Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=Range("M1"))
        With PT
            .PivotFields("Date").Orientation = xlRowField
            .PivotFields("Cust ID").Orientation = xlRowField
            .PivotFields("Client Name").Orientation = xlRowField
            .PivotFields("Amount").Orientation = xlColumnField
        End With
        
End Sub

Hi maacmaac, try it