Hi,
You could save the coordinates of the last cell and compare it to the looping cell:
LastCellAddr = cells(x,y).address 'x,y are the coordinates of the last cell
Loop Until ActiveCell.Offset(1, LastCol - 1).address = LastCellAddr
.Address returns the cell's address similar to "$c$2"
Succes,
Paul