Lav løkke indtil rækken er tom

Hvad mener du med så længe der er noget i rækken?
Snakker vi du vil fjerne data når de er behandlet?
Eller snakker vi du ønsker at arbejde på de rækker der er noget i og den skal køre fra top til bund, så længe der er data i rækken?

Hvis du sender din nuværende vba kan vi nemmere se hvad der sker og hvor vi skal "sætte ind". Jeg forestiller mig en do while Bx<>"" sådan lidt firkantet sagt, men prøv at vise os din kode.

Det er køre fra top til bund, men kun så længe der er udfyldt i kolonne B, da det drejer sig om en prisliste, hvor produkter bliver oprettet og andre udgår. Min kode ser således ud:

Sub Lopslag()
'
' Lopslag Makro
'

Dim iRow As Integer
Dim iColumn As Integer
iRow = 4
iColumn = 2
    Do Until IsEmpty(Cells(iRow, iColumn)) = True
   
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-6],'[Vareliste med alt.xlsx]Ark1'!R1C1:R3033C99,8,FALSE)"
    Range("H5").Select
   
          'ActiveCell.FormulaR1C1 = "=+RC[-2]*RC[-1]"
          ActiveCell.Offset(1, 0).Range("h5").Select
iRow = iRow + 1

    Loop
   
   
End Sub

Ind til videre.

En lille modifikation:
Sub Lopslag()
'
' Lopslag Makro
Dim iRow As Integer
Dim iColumn As Integer
lastrow = Range("A" & Rows.Count).End(xlUp).Row
iColumn = 2
    For iRow = 4 To lastrow
    Cells(iRow, iColumn).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Aark1'!R1C1:R3033C99,2,FALSE)"
    Next iRow
End Sub

Hov bemærk jeg ændrede på din opslagsformel for at lave en simpel test i mit.

UNDSKYLD kim1a, opdagede lige, at jeg aldrig fik markeret dit forslag som løsningen. Det er hermed gjort!