Sub Addtotal()
    Range("E18").Select
    ActiveCell.Formula = "Monthly Total;"
    Selection.Font.Bold = True
    Range("F18").Select
    ActiveCell.Formula = "=Sum($F$4:$F$17)"
    Selection.Font.Bold = True
    Columns("F").Select
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub