Hjælp til Lopslag og loop

Hej,

Jeg sidder med et problem hvor jeg har en kolonne med værdier (fra x4-x23) og skal lave et Lopslag i andet ark.Mit problem er at det er forskelligt hvor mange af cellerne fra x4-x23 der er værdier i, så makroen skal først tælle hvor mange Lopslag den skal lave og derefter spytte værdierne ud i w4-w23 (parvis, dvs. opslag på x4 i w4, opslag på x5 i w5 osv.)

Dette er hvad jeg har indtil videre:

Sub Lopslag()
Dim ls As String
Dim n As Integer
Dim i As Integer

n = Worksheets("valg").Range("x4:x23").Cells.SpecialCells(xlCellTypeConstants).Count

For i = 4 To n

ls = Evaluate("VLookup(cells(i,24),$C$64:$S$363,17,False)")
Cells(i, 23).Value = ls
Next i

End Sub


Er der nogle der kan hjælpe?