Excel Método PasteSpecial da classe Range falhou

[Keslley Smith]

Galera, criei um macro para adicionar informações de leads de uma imobiliária (NOME, EMPREENDIMENTO e TELEFONE), porém, ele não está funcionando, fica aparecendo este erro aí.

Segue o código: (A parte em negrito é o que está aparecendo como erro)

 

Sub macroCorreto2()
'
' macroCorreto2 Macro
' Adicionar informações do Lead.  Não mexa aqui, somente o Keslley Smith.
'

'
    Range("B3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("C3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

 

[Midori]

O erro deve acontecer porque não ha dados para colar. Falta o comando copy.

[Keslley Smith]

@Midori

Consegue ajustar esse código com o comando copy? Eu sou muito iniciante, não sei como fazer. 

[Midori]

Especifique o range que será copiado.

 

Sub macroCorreto2()

Range("B6:E6").Copy

Range("B3").Select

Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

...

 

A chamada de Copy deve ser antes de PasteSpecial. Como não sei detalhes da sua planilha coloquei o range B6:E6 para exemplificar.