Importing a text file by vba referring to a cell for file name & file path

hello everyone!!

I want to import a text file for which the vba code should refer to the cell B1 for File Path & cell B2 for File name.

My relevant extract of the vba code is as under.

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Downloads\filename.txt", Destination:=Range( _
        "$A$1"))
        .Name = "filename_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True

Please if anyone can help me out of this.

Thanks.