Need to copy cell reference from Application.Inputbox

Question

I have coded a small vba Macro in an Excel Destination.xlsx, and it is as follows:

Sub GetDataArea()
    Dim rng As Range
    Set rng = Application.InputBox(&