Find and format text

I have macro that finds the words Total and Charges but i need help in adding the total to the bottom of each column using =SUM(). i also want to find the word Name and use counta() at the bottom to count the total.

I recorded it and paste it underneath the thing is the amount of rows is different everyday.

Sub Macro1()
    Cells.Find(What:="DATE", After:=Range("F1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.NumberFormat = "mm/dd/yy;@"
    Cells.Find(What:="CHARGES", After:=Range("F1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Cells.Find(What:="TOTAL", After:=Range("F1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub