Erreur d'exécution '13' Incompatibilité de Type SI valeur = l'état de la boucle

Fondamentalement, ce que je fais c'est que j'ai données dans les colonnes A-I et je suis en train de copier des données [les Colonnes D-G] par leur valeur dans D. Dans cette boucle, je suis à la recherche lors de l'entrée en D dit "1CME Réglées en argent du Beurre".

J'ai ensuite commencer dans la colonne K (=11) j'ai coller. Alors je pile les lignes.

La boucle recommence et se lance à la recherche d'une valeur différente.

Mon problème est que j'ai couru le code d'amende pour de nombreuses descentes. Je n'ai pas changé le code, mais maintenant, je suis pas d'Erreur Run-Time Type '13' Incompatibilité. Est-il d'une certaine manière pour résoudre ce problème ou écrire un nouveau code?

Je suis en train d'apprendre VBA!

Merci!

iRow = 2
For Each i In Range("D2:D200")
    If i.Value = "1CME Cash-Settled Butter" Then
        Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
        Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks:=False, Transpose:=False
        iRow = iRow + 1
    End If
Next i

iRow = 30
For Each i In Range("D2:D200")
    If i.Value = "-1CME Cash-Settled Butter" Then
        Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
        Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        iRow = iRow + 1
    End If
Next i