Pessoal,

Estou com um erro na seguinte linha.

Alguem pode me apoiar?

Range("Base_total!b" & cont).PasteSpecial xlPasteValues

Segue código inteiro abaixo, e o arquivo !!!

Sub Enviar()

Dim cont As Long
Dim parcelas As Long


    'Application.ScreenUpdating = False
    

    parcelas = Range("Pedidos!e2").Value
    Range("Analitico!A10:F" & 9 + parcelas).Copy
    
    Sheets("Base_total").Activate
    
    cont = Range("Tabela2[Pedido_pc]").Count
    
        If cont > 1 Then
        cont = cont + 2
        Else
        cont = cont + 1
        End If
       
        Sheets("Base_total").Unprotect "renan1"
    
    Range("Base_total!b" & cont).PasteSpecial xlPasteValues
    
    
    ActiveWorkbook.Worksheets("Base_total").ListObjects("Tabela2").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Base_total").ListObjects("Tabela2").Sort.SortFields. _
        Add Key:=Range("Tabela2[[#All],[Vencimento]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Base_total").ListObjects("Tabela2").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  
    Sheets("Base_total").Protect "renan1"
    'MsgBox ("Pedido " & Range("Pedidos!B2") & " enviado com Sucesso!")
    Range("Pedidos!A2:F2").ClearContents
    Sheets("Pedidos").Activate
    
    'Application.ScreenUpdating = True
End Sub