selecting range with macro

i am using the following to total a work sheet, however i cannot figure how to select just certain columns.
the spreadsheet has a-l but i just want totals for g-l
thanks

Sub sumtotal()
    With ActiveSheet.Range("G:L").CurrentRegion
        If .Cells(.Rows.Count, 1).Value <> "Total" Then
            With .Offset(.Rows.Count).Resize(1)
                .Formula = "=sum(r2c7:r[-1]c)"
                .Columns(1).Value = "Total"
            End With
        End If
    End With
End Sub