Loops i VBA

Hej


Jeg har et loop der ser således ud:
Do
    Sheets("Forhandlingsenhed U+H sorteret").Activate
    range("J" & start_celle_forhandling).Activate

    ActiveCell.offset(1, 0).Select

    start_celle_loensam = start_celle_loensam + 1
    start_celle_forhandling = start_celle_forhandling + 1


Loop Until IsEmpty(ActiveCell.offset(1, 0))

Men jeg har det problem, at jeg ikke kan få den til at lave kørslen for den sidste celle - den stopper ved den næstsidste.

Hvad gør jeg forkert?