VBA - Overwrite current data with text file data

[Lelewiwi]

Hi all I have the following code that works to an extent. Unfortunately, it inserts the data and shifts all other cells to the right. I need it to overwrite the existing data. Any help is appreciated!

'Import text dates
    Sheets("Split Request").Select
    Set ws1 = ActiveSheet
    MsgBox "Please select 'Dates' text file", vbOKOnly
    TextFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If TextFile = "False" Then Exit Sub
    With ws1.QueryTables.Add(Connection:="TEXT;" & TextFile, Destination:=ws1.Range("B8"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .Refresh
    End With

 

[rlv01]

Try this.

    With ws1.QueryTables.Add(Connection:="TEXT;" & TextFile, Destination:=ws1.Range("B8"))
        .RefreshStyle = xlOverwriteCells
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .Refresh
    End With

 

[Lelewiwi]

That worked great! Thank you!