How can I import a single column of data into Excel from tab-delimited text file?

Question

Each of my tab delimited text files has 1 column of data I want (well 2, but baby steps). I want to select the file to import, have that 1 column of data paste into my spreadsheet (into the cell I select, since automating that is too tricky), and then repeat.

After about 40 iterations, this is where I'm at. It keeps importing the entire file, and telling me the column MG/ML is not found.

Sub ImportMGMLColumn()
' Define variables
Dim filePath As String
Dim ws As Worksheet
Dim fileDialog As fileDialog
Dim headerCell As Range
Dim lastColumn As Long

' Set up file dialog
Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
fileDialog.Title = "Select the Tab-Separated Text File"

' Allow the user to select only one file
fileDialog.AllowMultiSelect = False

' Show the file dialog and get the selected file path
If fileDialog.Show = -1 Then
    filePath = fileDialog.SelectedItems(1)
Else
    ' User canceled the file selection
    Exit Sub
End If

' Set the worksheet where you want to import the data
Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your sheet name

' Clear existing data in the target column (excluding the header)
ws.Range("A:B").ClearContents ' Change the range as needed

' Import data from the selected text file
With ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=ws.Range("A1"))
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .Refresh
End With

' Find the header cell with "MG/ML"
On Error Resume Next
Set headerCell = ws.Rows(1).Find("MG/ML", LookIn:=xlValues, LookAt:=xlWhole)
On Error GoTo 0

' If "MG/ML" header is found, copy and paste only the desired column
If Not headerCell Is Nothing Then
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    ws.Columns(headerCell.Column).Copy ws.Columns(lastColumn + 1) ' Paste next to the last column
Else
    ' Notify if "MG/ML" header is not found
    MsgBox "Column 'MG/ML' not found in the imported data.", vbExclamation
End If

' Clear clipboard
Application.CutCopyMode = False
End Sub

Thank you in advance.