VBA script to import text data in the first empty column of a range

Hello to all of you,
I created a VBA script to import a text file in a specif spreadsheet columns range (AK5:AR44) and I would like to make it more efficient with following modifications for which I may need your help:

Use as Destination:=Range the first empty column in the predefined range
Create a sort of loop, after each file is imported, using a pop up window, user should be able to decide whether to import another file to the first new empty column or to stop the import.
Below the code I have create until now, unfortunalety I wasn't able to add a sort of dynamic destination for the newly imported data.
Thanks in advance for your help.

 Sub Import_samples_data_rep()
Dim Sample1_repfile As String
    MsgBox "Select text file", vbOKOnly
    Sample1_repfile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Dim Stuff
'assign variables
 On Error GoTo ErrHandler:
ErrHandler: If Err.Number = 1004 Then
ErrMsg = Error(Err.Number)
Exit Sub
End If
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Sample1_repfile, Destination:=Range("$AK$5"))
        .Name = "*.txt"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 14
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(9, 9, 1, 9)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
Dim answer As Integer
answer = MsgBox("Import another file?", vbQuestion + vbYesNo + vbDefaultButton2, "Import again")
If answer = vbYes Then
Sample2_repfile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Sample2_repfile, Destination:=Range("$AL$5"))
        .Name = "*.txt"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 14
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(9, 9, 1, 9)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
Else
MsgBox "File import ended", vbOKOnly
End If
End Sub

Sub Import_samples_data_rep()
    Dim Sample1_repfile As String
    Dim Stuff
    Dim answer As Long
    Dim DestColumn As Variant
    
    
    MsgBox "Select text file", vbOKOnly
    'assign variables
    Do 
        Set DestColumn = Range("as4").End(xlToLeft).Offset(ColumnOffset:=1)
        DestColumn = DestColumn.Address
        
        Sample1_repfile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
        
        With ActiveSheet.QueryTables.Add( _
                Connection:="TEXT;" & Sample1_repfile, _
                Destination:=Range( DestColumn))
            .Name = "*.txt"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 14
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = True
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(9, 9, 1, 9)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        answer = MsgBox("Import another file?", vbQuestion + vbYesNo + vbDefaultButton2, "Import again")
        Loop While answer = vbYes 
    MsgBox "File import ended", vbOKOnly
End Sub