Sub WhileDemo() Dim I As Integer I = 1 Do Cells(I, "B").Value = Cells(I, "A").Value I = I + 1 Loop While Cells(I, "A").Value <> "" End Sub