add autosum to this piece of code

I would like to autosum the the column charges from the last cell to cell 2 but i want to know if it is possible to add it to this code. since Charges can end up in any column.

    Set vFIND = Cells.Find("Charges", LookIn:=xlValues, LookAt:=xlPart)
    If Not vFIND Is Nothing Then
        vFIND.EntireColumn.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Set vFIND = Nothing
    End If