Boa noite,

estou me deparando com esse erro e nem por onde começo pra arrumar.

Excel não pode colar os dados e dou um clique em depurar:

MsgBox ThisWorkbook.Worksheets("OC Conf").Range("texto")

End If
ws.Range(ws.Cells(19, 1), ws.Cells(29, 1)).EntireRow.Hidden = True

For Each shape In ws.Shapes
If shape.name = "trix" Then shape.Delete
Next
linha = ws3.Range("mtr").Row
coluna = ws3.Range("mtr").Column
linhatrix = wsco.Range("linhas")
colunatrix = wsco.Range("colunas")
Set rg = ws3.Range(ws3.Cells(linha - 1, coluna - 1), ws3.Cells(linha + linhatrix, coluna + colunatrix))
rg.Copy
ws.Select
ws.Range("A10").Select
ActiveSheet.Pictures.Paste(Link:=True).Select (ERRO) fica amarela
Selection.ShapeRange.Width = 600

If Selection.ShapeRange.Height > 180 Then Selection.ShapeRange.Height = 180
Selection.ShapeRange.name = "trix"

With ws.Range("V15:AD15")
.MergeCells = True
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With
With ws.Range("X16:Y16")
.MergeCells = True
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With
With ws.Range("a1:an1")
.MergeCells = True
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With
Application.DisplayAlerts = True
ws.Range(ws.Cells(ws.Range("inicio").Row, ws.Range("inicio").Column), ws.Cells(ws.Range("inicio").Row, ws.Range("inicio").Column + 1)).Merge
ws.Range(ws.Cells(ws.Range("inicio2").Row, ws.Range("inicio2").Column), ws.Cells(ws.Range("inicio2").Row, ws.Range("inicio2").Column + 6)).UnMerge
ws.Range(ws.Cells(ws.Range("inicio2").Row, ws.Range("inicio2").Column), ws.Cells(ws.Range("inicio2").Row, ws.Range("inicio2").Column + 6)).Merge

Application.Calculation = xlCalculationManual
End Sub

alguem pode me ajudar