Move the lRow=Cells..... into the Loop as the first line after the "Do"