Visual Basic Erro metodo pastespecial da classe range falhou

[Elton_cb]

Estou tentando realizar um formulario de cadastro simples, porém ao executar a macro está retornando "erro em tempo de execução "1004': O metodo  pastespecial da classe range falhou.

Segue abaixo o codigo utilizado:

<

Sub CADASTRO()
'
' CADASTRO Macro
'

'
    Application.CommandBars("Help").Visible = False
    Range("J2").Select
    ActiveCell.Range("A1:C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlUp).Select
    ActiveCell.Offset(-2, 1).Range("A1:B1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveCell.Offset(0, -1).Range("A1").Select
End Sub
>

 

alguém poderia auxiliar?

 

[Midori]

Faltou chamar a função Copy. Se não tiver nada para colar vai dar erro na linha do PasteSpecial.