Grand Total Macro

[Jimmmy]

Hey guys, I need your help again please. I need a macro that adds the rows of data in an array which contains the text "Total" in column A, and inputs those values two lines after the last row in the array; however, it's important to note that there are multiple blank lines in this. I need the macro to disregard those and enter the grand total two lines after the last-used row.

Simply put, I need a sum function from column B to that last used column, and add only those lines that contain the text "Total" in column A, and again, I need this row to be entered two rows after the most-bottom row.

 

[Weaver]

try:

Sub insertTotal()
    ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(2).FormulaR1C1 = "=SUMIF(R1C1:R[-1]C1,""total"",R1C:R[-1]C)"
End Sub