Loop Vlookup

Hej! Jeg har lavet følgende:

Sub ImportPL()

Dim FileNameDS As String
FileNameDS = Range("l1") & " " & Range("l2") & ".xls"

        ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-7],'[" & FileNameDS & "]P&L'!R7C1:R9C8,8,FALSE)"

End Sub

Her slår den op på en enkelt celle i et variabelt filnavn. Jeg vil imidlertid gerne have lavet en løkke, så den laver et lopslag hver gang den møder en ny konto (som er en 6-cifret kode)inden for et givent range. Hvordan gør jeg det?

\ Gnalling1