Объединение дублирующих строк и добавление количества

Question

Я использую приведенные ниже строки кода. Вместо меня нужно выделить диапазон. Есть ли код, который может выбрать мой диапазон данных? Я застреваю на жирной строке кода. Я хочу, чтобы диапазон выбирался автоматически.

Sub MyEnterEvent()

   Set R = Application.Selection
    **Set R = Application.InputBox("select one Range:", "CombineDuplicateRowsAndSum", R.Address, Type:=8)**
    Set Dic = CreateObject("Scripting.Dictionary")
    arr = R.Value
    For i = 1 To UBound(arr, 1)
        Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 3)
    Next
    R.ClearContents
    R.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
    R.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
    Application.ScreenUpdating = True

End Sub