Add this into the worksheet code module

[vba]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit

Application.EnableEvents = False

If Target.Row > 1 Then

If Not Intersect(Target, Me.Columns(1)) Is Nothing Then

Target.Offset(0, 2).Value = 2

ElseIf Not Intersect(Target, Me.Columns(4)) Is Nothing Then

If Target.Value > 0 Then

Target.Offset(0, 4).Value = "DEP"
Else

Target.Offset(0, 4).Value = "WD"
End If
End If
End If

ws_exit:
Application.EnableEvents = True
End Sub
[/vba]