help

Olá! Estou com um probleminha.

Quando executo o código abaixo, na hora dele voltar com a célula copiada para minha planilha --- Workbooks("arquivo1.xlsm").Activate --- ele dá o seguinte erro:

"Erro em tempo de execução '9' Subscrito fora do intervalo"

Não consigo compreender o que está acontecendo nem como resolver. O nome do arquivo está correto, será que tem algo a ver com a planilhas que esse arquivo possui e eu preciso designar a correta com o sheets.

Segue o código:

Sub importar03()

Dim nomearq As String
nomearq = Application.GetOpenFilename
Workbooks.Open Filename:=nomearq
Sheets(1).Select
Range("a2").Select
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy 
Workbooks("arquivo1.xlsm").Activate
Range("a6").PasteSpecial xlFormats
Range("a6").PasteSpecial xlValues

End Sub

Agradeço antecipadamente!