Insert Total Formula Using SUMIF And Named Range

I am trying to put a SUMIF formula at the bottom of the data. Doing it manually is fine, but I want some vba to automate it, and my vba doesnt work.

Sub balance()
'adds journal line so journal balances in each month

Dim Rga As Range
Dim Rgb As Range
Dim Rgc As Range
Dim Rgd As Range
Dim Rge As Range
Dim Rgf As Range

This code just inserts text into the formula, rather than the range of cells.