Create a macro

Hello,

Please help. I am hoping that someone will be kind enough to adapt this macro that I can run each month that will return the following information. I have a list of credit card entries on an excel spreadsheet, and the R? column is used to note if a receipt has been submitted for that charge (X meaning a receipt was submitted). I need to do a countif in the R column for each cardholder to give me a total number of receipts submitted, then a total number of charges made in the T column (I know this is an =Rows function), and then a percentage of receipts turned in in the % column. I need the answers to remain as the function, as I continue to enter an x as receipts are turned in, which will continually change the R and %. As you can see, both the number and the name must be the same, as I often have the same number for 2 different people. I have no tech support and I am only capable of creating simple record macros. This type of macro is well beyond my scope. I was sent the attached macro, which totals the amount, and I thought I could adapt it to do the other functions, but it is well beyond my scope. Any help would be greatly appreciated.

# NAME AMOUNT R? R T %
1234 CHURCH, A $25.00 X
1234 CHURCH, A $26.00
1234 CHURCH, A $41.00 X
1234 CHURCH, A $57.00
1234 CHURCH, A $89.00 X
1234 CHURCH, A $45.00
1234 CHURCH, A $5.00 X
1234 CHURCH, A $7.00
1234 ME, L $89.00 X
1234 ME, L $91.00 X
1234 ME, L $64.00
1234 ME, L $28.00
1234 ME, L $3.00 X
1234 ME, L $8.00 X
1234 ME, L $4.00 X
5678 DOE, J $67.00
5678 DOE, J $15.00 X
5678 DOE, J $96.00 X
5678 SONG, R $45.00
5678 SONG, R $2.00 X
5678 SONG, R $7.00
5678 SONG, R $94.00 X
5678 SONG, R $45.00


Sub Totals()


Dim r1 As Range, c1 As Range, r As Range, filt As Range, filt1 As Range
Dim cfilt As Range, ssum As Double, j As Integer
Worksheets("sheet1").Activate

Set r1 = Range(Range("A1"), Range("A1").End(xlDown))
Set r = Range("A1").CurrentRegion
r.Sort Key1:=Range("B1"), Header:=xlYes
Set filt = Range("A1").End(xlDown).Offset(5, 0)
r1.AdvancedFilter xlFilterCopy, , filt, True
Set filt = Range(filt.Offset(1, 0), filt.End(xlDown))

For Each cfilt In filt
r.AutoFilter field:=1, Criteria1:=cfilt
ssum = WorksheetFunction.Sum(r.Columns("N:N").SpecialCells(xlCellTypeVisible))
j = Range("c1").End(xlDown).Row
Cells(j, "O") = ssum
ssum = 0
Columns("O:O").Select
Selection.Style = "Currency"


Next cfilt
ActiveSheet.AutoFilterMode = False
Range(Range("A1").End(xlDown).Offset(1, 0), Cells(Rows.Count, "A")).EntireRow.Delete


End Sub