IF i makro!

Jeg fik en god hjælp tidligere på ugen med en kode der virkede perfekt. Den kører en tabel igennem og tjekker det sidste felt (6) for hvor mange kopier der skal genereres til ark to og kopierer derefter 2,3 og 4 til ark 2.

Denne kode prøvede jeg så at lave om i, så den kunne tjekke felt fire (postnummer) og give det en værdi i feltet efter (københavn K, Frederiksberg C etc.). I den vedlagte kode tjekker den kun for København K. Når jeg prøver at køre den, får jeg dog en fejl "Loop without Do" og det fatter jeg ikke et ord af for den ligner jo til forveksling den første kode! Derudover er jeg ikke sikker på at Set overhovedet eksisterer i VB (er vant til java). Nogen råd/forslag?

1. kode (den virker!)
Public Sub SkrivHusstande()

Dim i, j, k, maxRk, antal As Integer

maxRk = ActiveSheet.UsedRange.Rows.Count
k = 1

For i = 1 To maxRk
    antal = ActiveSheet.Cells(i, 6).Value
    j = 1
    Do While j <= antal
        Range(Cells(i, 2), Cells(i, 4)).Copy Sheets(2).Cells(k, 1)
        j = j + 1
        k = k + 1
    Loop
Next i

End Sub

2. kode, den der ikke virker :-)
Public Sub CheckIndreBy()

Dim i, j, k, maxRk, postnr As Integer

maxRk = ActiveSheet.UsedRange.Rows.Count
k = 1

For i = 1 To maxRk
    postnr = ActiveSheet.Cells(i, 6).Value
    j = 1
    Do While j <= 2000
        If postnr < 1500 Then
            Set ActiveSheet.Cells(i, 7) = "København K"
        j = j + 1
        k = k + 1
    Loop
Next i

Do while sætningen j < 2000 er et forsøg på at få den til at virke, men uden resultat...
Som i kan se er den nærmest en tro kopi af den første kode, men hvis en gad se den igennem ville jeg være meget taknemlig...