Use an Input box to select a range

[jolivanes]

Sub Like_This()
'<---- Thanks to RoyUK
Dim Rng As Range
Set Rng = Application.InputBox(Prompt:="Please select a range with dragging your mouse pointer", Title:="Selection required", Default:="Drag the mouse to make a selection.", Type:=8)
Rng.Value = "Hello"
End Sub