VBA - tjekke celler via to løkker....

Hvorfor virker ingen af de her:

Dim j, k As Integer
k = 2
For j = 2 To j = 8
  If Worksheets("Ark1").Cells(k, j) = "2" Then Worksheets("Ark2").Cells(2, 2) = Worksheets("Ark2").Cells(2, 2) + Worksheets("Ark1").Cells(1, j)
  If Worksheets("Ark1").Cells(k, j) = "3" Then Worksheets("Ark2").Cells(2, 3) = Worksheets("Ark2").Cells(2, 3) + Worksheets("Ark1").Cells(1, j)
  If Worksheets("Ark1").Cells(k, j) = "4" Then Worksheets("Ark2").Cells(2, 4) = Worksheets("Ark2").Cells(2, 4) + Worksheets("Ark1").Cells(1, j)
Next j

Dim l, m As Integer
For l = 2 To l = 10
  For m = 2 To m = 8
    If Worksheets("Ark1").Cells(l, m) = "2" Then Worksheets("Ark2").Cells(2, 2) = Worksheets("Ark2").Cells(2, 2) + Worksheets("Ark1").Cells(1, l)
    If Worksheets("Ark1").Cells(l, m) = "3" Then Worksheets("Ark2").Cells(2, 3) = Worksheets("Ark2").Cells(2, 3) + Worksheets("Ark1").Cells(1, l)
    If Worksheets("Ark1").Cells(l, m) = "4" Then Worksheets("Ark2").Cells(2, 4) = Worksheets("Ark2").Cells(2, 4) + Worksheets("Ark1").Cells(1, l)
  Next m
Next l

Mens lange striber af (med små ændringer selvfølgelig)
  If Worksheets("Ark1").Cells(2, 2) = "2" Then Worksheets("Ark2").Cells(2, 2) = Worksheets("Ark2").Cells(2, 2) + Worksheets("Ark1").Cells(2, 1)
virker uden problemer...

Pointne går til den, der kan få det til at virke med 2 løkker....