Hilfe Erweiterung Überprüfung im Code

Sub Einfügen()
Dim Q_x&, Z_X&, wksQ As Worksheet, wksZ As Worksheet
Dim MyRow&, MyCol&, x&
Dim Artikel$, Menge&, Woche$ 'hier ist Artikel als String deklariert
Set wksQ = ThisWorkbook.Worksheets("start")
Set wksZ = ThisWorkbook.Worksheets("ziel")
For Q_x = 2 To 20 'Schleife Zellen 2-20 aus "Start" in Spalte(A)
If wksQ.Cells(Q_x, 4) = "x" Then 'wenn in Spalte(D) ein x steht Variabeln mit Inhalt füllen
Artikel = wksQ.Cells(Q_x, 1)  'aus Spalte(A)
Menge = wksQ.Cells(Q_x, 2)  'aus Spalte(B)
Woche = wksQ.Cells(Q_x, 3)  'aus Spalte(C)
For Z_X = 3 To 10 'Artikel suchen
If wksZ.Cells(Z_X, 1) = Artikel Then
MyRow = Z_X 'Zeile merken
For x = 2 To 54 'Woche suchen
If wksZ.Cells(2, x) = Woche Then
MyCol = x
wksZ.Cells(MyRow, MyCol) = wksZ.Cells(MyRow, MyCol) = Menge
End If
Next
End If
Next
End If
Next
End Sub