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