InputBoxと組み合わせて､ｸﾘｯｸされたｼｰﾄ､ｾﾙの場所を取得ってのは
こんな感じでどうでしょうかね｡

'*****************************************************************************************'
Sub 読込位置指定処理()

Dim MSG As String
Dim Readrange As Object
Dim StartRows As Long
Dim StartColumn As Long
Dim Readsheet As Worksheet

MSG = "開始位置をｾｯﾄしてください"

On Error Resume Next

Set Readrange = Application.InputBox(prompt:=MSG, Type:=8)

If Readrange Is Nothing Then

MsgBox "何も選択されていません｡処理をｷｬﾝｾﾙしました｡" & vbCrLf & _
"再度実行ﾎﾞﾀﾝを押してください｡ "
Exit Sub

End If

Select Case Err.Number
Case 0
StartRows = Readrange.Row
StartColumn = Readrange.Column
Set Readsheet = ThisWorkbook.Worksheets(Readrange.Worksheet.Name)

MsgBox ("読み込むｼｰﾄ名は" & vbCrLf & "『" & Readsheet.Name & "』" & vbCrLf & _
"開始位置は" & StartRows & "行目" & vbCrLf & StartColumn & "列目です")

Exit Sub

Case 13
MsgBox "ｾﾙの位置をｸﾘｯｸしてください"
End Select

End Sub
'*****************************************************************************************'

表とかの値を取るのであれば､表の項目名の先頭ｾﾙ(表の左上)だけ分かれば
あとは項目名の個数を取得して､表の先頭行が入っている値を全部取得する､とか
出来ると思います｡

どうでしょか｡