Insert a formulae for a range in an Excel Workbook

Public Sub Select_Sum_Range()

'Create a formule using a range where cell references are known

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rgAddress As String
Dim rg As Excel.Range

Set xl = Application
Set wb = ThisWorkbook
Set ws = wb.Sheets(2)
Set rg = ws.Range(ws.Cells(1, 1), ws.Cells(10, 6))
rgAddress = rg.Address(RowAbsolute:=False, ColumnAbsolute:=False)
ws.Cells(11, 6).Value = "=SUM(" + rgAddress + ")"

End Sub