Dim Rng As Range

Set Rng = Range("B1")

Rng.AutoFill Destination:=Range(Rng, Rng.Offset(1))

UserForm1.TextBox1.value = Rng.Offset(1).value
Rng.Offset(1).ClearContents ' <-- clear the added cell

UserForm1.Show