Sub ViborDiapozona()
Dim rng As Range
    
    Set rng = Application.InputBox( _
      Prompt:="Выберите данные.", _
      Title:="Выберите диапазон.", Type:= 8 , Left:= 200 , Top:=- 65 )
      
    MsgBox "Вы выбрали: " & rng.Address
End Sub

Sub ViborDiapozona()
Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox( _
      Prompt:="Выберите данные.", _
      Title:="Выберите диапазон.", Type:= 8 , Left:= 200 , Top:=- 65 )
    If Err Then Exit Sub
    On Error GoTo  0 
    MsgBox "Вы выбрали: " & rng.EntireRow.Address(False)
End Sub