something like this?: 
Dim txtFileName As Variant
Dim destCell As Range
Dim qt
Set destCell = Worksheets("TestingImport").Range("A9")
    
txtFileName = Application.GetOpenFilename(FileFilter:="TXT Files (*.txt),*.txt", Title:="Select a TXT File", MultiSelect:=False)
If txtFileName = False Then Exit Sub
    
Set qt = destCell.Parent.QueryTables.Add(Connection:="TEXT;" & txtFileName, Destination:=destCell.Cells(1, 1))
With qt
  .TextFileStartRow = 2    'this leaves the header away
  .TextFileParseType = xlDelimited
  .TextFileCommaDelimiter = True
  .Refresh BackgroundQuery:=False
  With Intersect(.ResultRange.EntireRow, .Parent.Range("R:R"))
    .Cells(1) = 1
    .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
  End With
End With
destCell.Parent.QueryTables(1).Delete