Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
If IsEmpty(Target.Offset(0, -1).Value) Then
Application.Undo
Target.Offset(0, -1).Select
End If
End If
Application.EnableEvents = True
End Sub