Visual Basic - Macro para importar archivo Txt

saludos.

Quiero importar varios archivos Txt a una hoja de calculo ya hice una macro con la grabadora, tuve que hacer varios macros para cada archivo, no se si es la mejor forma o hay una manera mas practica. a cada macro le puse un imputbox para que pregunte en que numero de celda quieres la informacion y le tuve que poner un numero de celda fija lo que ocupo es que al momento de pregunta te lo ponga donde teclas la celda, ahorita la que tienes es una celda fija.

Sub Res()
'
' Txt Restaurant
'

'
Ubica = InputBox("En qué celda va empezar la importación del Texto")

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\JUAN\Desktop\Compra de DolaresRes.", Destination:=Range( _
"$A$2"))
.Name = "Compra de DolaresRes._1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(4, 4, 7, 14, 12, 14, 15, 21, 9, 30, 15, 20)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Esta es la macro mi duda es donde esta la ceda A2, le puedo poner una variante.? para que te lo ponga donde quieras?