Este fórum está sendo desativado

[AlanTejeira]

erro de definição de aplicativo ou de definição de objeto

Private Sub CommandButton1_Click()

Range("B3").Select
Selection.Copy
Range("A6:A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6:F22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Planilha2").Select
Range("A2:a2").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Planilha1").Select
End Sub