Visual Basic VBA - Macro que busca dados de outro arquivo; ID's diferentes na empresa

[João Cassiano]

Bom dia Pessoal,

Eu fiz uma macro que: Abre uma nova aba, nesta nova aba dados de outra planilha são importados através do endereço ''C:\Users\A270411\Desktop\PE Cost Estimate\Cost Estimate.csv''. Porém, esta planilha deverá ser utilizada por mais pessoas na minha empresa, sendo que meu ID é o número ''A270411''.

Quando eu passar este arquivo para as outras pessoas, que possuem ID's diferentes, elas não conseguirão rodar a macro.

 

Bom o resto da macro é basicamente rodar uma outra macro, copiar e colar. 

 

Alguém poderia me ajudar a solucionar esse problema na hora de buscar o endereço do outro arquivo excel .csv ? Obrigado
 

Sub ImportarDados()
'
' ImportarDados Macro
'

'
    Sheets.Add After:=Sheets(Sheets.Count)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\A270411\Desktop\PE Cost Estimate\Cost Estimate.csv", _
        Destination:=Range("$A$1"))
        .Name = "Cost Estimate"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Application.Run "'PE Cost Estimate - Template.xlsm'!NumberingMindJet"
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("VM").Select
    Range("B9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("C1").Select
    Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("VM").Select
    Range("C1").Select
End Sub

Obrigado

[Basole]

Experimente assim: 

"C:\Users\Environ("USERPROFILE") & "\Desktop\PE Cost Estimate\Cost Estimate.csv"