Do While there are values in column A

Hi,

I'm a beginner to VBA and I'm having some difficulty. I have values in cells A1:A10. What I wants to do it create a while loop to insert a specific value into B1:B10 ie it will stop when there are nolonger values in A column which will occur at A11.

Here is my code so far:

Sub Do_While_5()

Dim x As Integer

x = 1

Do While IsEmpty(Range("A:A").Select) = False


    Cells(x, 2).Select
    Cells(x, 2).Value = 123456
    
x = x + 1

Loop
    
End Sub

Thanks in advance