Errors when coying to another workbook

Logaraj Sekar 

Thank you for your reply.

My bad, I moved them by mistake and I have re-uploaded them. WORKSHEETS 

Below you see the code giving me error, line 5, I think it must be looking for a pivot table that is not there, but that code should not be there anyway.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim shtP As Worksheet           ' Pivot worksheet

' initalize variables
Set shtP = Sheets("Pivot")

' Only consider columnm B
If Intersect(Target, Range("B10:B29")) Is Nothing Then Exit Sub

' Set the selected provider
shtP.Range("Sel_Pro") = Target.Offset(0, -1).Value

' Check to make sure it is in the database
If shtP.Range("Num_Ref") = 0 Then
    MsgBox "Selecciona Proveedor"
Exit Sub
End If

' Set the fileter
shtP.Range("Filter_Pro") = shtP.Range("Sel_Pro")

' Refresh the pivot tables
shtP.PivotTables("Pt_referencia").PivotCache.Refresh
   

End Sub

I am able to get rid of the error if a save Escandallo as macro-free book but I would like to be able to copy the cost without any VBA/macro in it. 

Is this a matter of where the code is located? VBAProject (COSTES.xlsb)/Objects/Sheet1

To be honest,  I have no clue.

Cheers!

sanjibdutta here goes the code. Thank you for your time!

Sub CopyRecipe()
    On Error Resume Next
    
    Dim newName As String
    newName = Sheets("Plantilla Coste").Range("B2").Value
    
    ' Check if worksheet with same name exists
    Dim sheetExists As Boolean
    sheetExists = False
    
    For Each sh In ThisWorkbook.Sheets
        If sh.Name = newName Then
            sheetExists = True
            Exit For
        End If
    Next sh
    
    If sheetExists Then
        MsgBox "La receta " & newName & " ya existe. Por favor, elije otro nombre."
        Exit Sub
    End If
    
    ' Copy worksheet
    Dim destWb As Workbook
    Set destWb = Workbooks("Escandallo.xlsx")
    Sheets("Plantilla Coste").Copy After:=destWb.Sheets(destWb.Sheets.Count)
    
    ' Rename worksheet
    destWb.Sheets(destWb.Sheets.Count).Name = newName
    
    ' Delete data validation from range A10:B29
    Dim firstValidationCell As Range
    Set firstValidationCell = destWb.Worksheets(newName).Range("A10:B29").Find(What:="*", LookIn:=xlValidation)
    If Not firstValidationCell Is Nothing Then
        firstValidationCell.Resize(20).Validation.Delete
    End If
    
    ' Delete buttons
    destWb.Worksheets(newName).Shapes.Range(Array("Button 1", "Button 2")).Delete
    
    Range("B2").Select
    
    On Error GoTo 0
End Sub