Imprimir hojas con subtotales al final

For Each NumRange In Columns("H").SpecialCells(xlConstants, xlNumbers).Áreas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
Next NumRange

Como definirle aca que me marque el saldo al final de la hoja y no al final de la lista. Ayuda Gracias...