Adding Totals to Call Stats Sheet

[kateyene]

I am making this statistic sheet for callers. I have their name and different endings for calls. What I am mainly concerned is about the $CC and $PL.

After entering the person's information about their call day, I want to have a new row automatically be inserted so that there is a blank row between the information entered and the sub totals. Then I would for there to be a blank row between all the information and the grand total at the bottom. As new row are being entered, I would also like for the sum total and grand total to be update with the new information.


Would anyone know how to accomplish this? Any help will be much appreciated.


I attached a sample of the file that I want to do this for.

[venkat1926]

why not use sub total function in vba
data in sheet 1 is like as in attachment kate.xlsm




try this macro

Sub subtotalling()
    Range("A1").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 18) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveWindow.SmallScroll Down:=6
    Columns("A:A").Cells.Find(what:="grand total", lookat:=xlWhole).Activate
    ActiveCell.EntireRow.Insert
    
End Sub

Sub undo()

    
    Range("A1").Select
    Selection.RemoveSubtotal
    Cells.Find(what:="grand total", lookat:=xlWhole).Activate
    ActiveCell.EntireRow.Delete
End Sub