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
Bookmarks