Erro de execuçã 1004

[Adriano Carmo]

Bom Dia pessoal, meu chefe me mandou uma planilha porém ao executar uma Macro ela da o erro em tempo e execução 1004. Meu excel é o 2000. Será que alguem podeia me ajudar?

 

Sheets("Espelho").Select
    Rows("2:100").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
    Sheets("Inserir dados").Select
    Range("H2:K99").Select
    Selection.Copy
    Sheets("Espelho").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Sheets("Inserir dados").Select
    Range("J89").Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Application.CutCopyMode = False
    Range("B2:E100").Select
    Selection.ClearContents
    Range("B2").Select
    
    MsgBox "Obrigado por inserir os dados, tenha um bom trabalho!"

[CasaDoHardware]

Melhor disponibilizar o arquivo o codigo a principio nao tem nenhum erro aparente.

 

Provavelmente o erro ocorre quando você executa com determinada aba ativa e isso pode em alguns casos causar erro.