Pessoal, Boa Noite,

Sou iniciante no VBA, e estou com problema em uma macro que simplesmente copia e cola valores.

Na sub:

Sub GravarItensCompra()

    Sheets("Solicitacao").Select
    Range("P14:AF73").Select
    Selection.Copy

    Sheets("BD_Insumo").Select 'Mudar para aba Banco de Dados Insumos
    
    'Tirar Filtros
    Range("B3").Select
    Selection.AutoFilter
    
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1:Q60").Select
    
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Application.CutCopyMode = False
               
        
End Sub

Da um erro em:

ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False [/quote]
        
Não consigo identificar o motivo.

Desde já agradeço a atenção.