Macro nao funciona

Prezados, estou com muito dificuldade em identificar o erro da minha macro quando ela chega em "Workbooks("importando dados.xlsm.").Activate ". Toda hora tenho q redefinir o nome da pasta, já está habilitada para macros, mas o depurador não consegue retornar para a pasta em questão.

Sub importar03()
    Dim nomearq As String
    Dim nomearq2 As String
    nomearq = Application.GetOpenFilename
    Workbooks.Open Filename:=nomearq
    nomearq2 = ActiveWorkbook.Name
    Sheets(1).Select
    Range("a2").Select
    Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
    Workbooks("importando dados.xlsm.").Activate
    Range("a1048576").End(xlUp).Offset(1, 0).Select
    ActiveCell.PasteSpecial xlFormats
    ActiveCell.PasteSpecial xlValues
    Workbooks(nomearq2).Activate
    Workbooks(nomearq2).Close
    Range("a1").Select