Boa tarde,

Por favor, vocês poderiam me ajudar?

Sou um novo usuário de Excel e criei um macro que copia algumas colunas de uma tabela ("formatea file de nemag e mastersoft_2014_06.xlsm") e cola em uma outra ("br_kpis_jan_2015_salvo_automaticamente.xlsx").

Depois de ter gravado o macro, mandei rodar e deu certo.

Porém, quando fechei minhas planilhas e abri de novo, aparecia o seguinte erro:

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

Eu já alterei os nomes das planilhas para tudo minúsculo e tirei os acentos, mas ainda não obtive êxito.

Vocês sabem o que pode ter dado errado?

O código é esse:

"
Sub SUBSTITUICAO()
'
' SUBSTITUICAO Macro
' Este macro substitui os valores de todas as colunas sem formula.
'
' Atalho do teclado: Ctrl+u
'
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate

Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate

Columns("A:Y").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AI1").Select
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("AA:AO").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("AA1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AQ1").Select
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("AQ:BC").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("BE:CY").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("BE1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
"

Agradeço desde já.