underlig periodisk fejl i vba

jeg har følgende kode i excel:


Dim p As Object
Dim i As Long
Dim temp As String

Worksheets("til pdf").Select
i = 2
Do While Worksheets("til pdf").Cells(i, 14) <> ""

    Worksheets("resultat").Select
    temp = Worksheets("til pdf").Cells(i, 15)
   
   
    If Worksheets("til pdf").Cells(i, 20) = "TEKST" Then

        Range(temp).Select
   
        Selection.Copy
        Worksheets("til pdf").Select
   
        'MsgBox "test"
       
        Set p = ActiveSheet.Pictures.Paste
   
    End If

i = i + 1

Loop


problemet er at nogle gange kommer der en fejl i excel der siger at den ikke kan indsætte data ved rækken
"Set p =ActiveSheet.Pictures.Paste"

og nogle gange virker det.
nogle ideer?