try this

Sub entername()
If b1 = "" Then
b1 = InputBox("enter your name", "yourname here")
Else
MsgBox "name in place, continue(or something like that"
End If
Worksheets("Sheet1").Range("b1").Activate
ActiveCell = b1
End Sub