Sub loopUntil() Dim I As Integer I = 1 Do Cells(I, "B").Value = Cells(I, "A").Value I = I + 1 Loop Until Cells(I, "A").Value = "" End Sub