Write three Subs; Worksheet_Change, MarkDeveloper, and MarkQC

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
'Determine where the changed cell is.
If not Intersect(Target, Range("H:H") Is Nothing Then MarkDeveloper Target 'Pass the changed cell to the sub
If Not Intersect(Target, Range("G:G")) Is Nothing Then MarkQC Target
End Sub
Private Sub MarkDeveloper(Target As Range)
Application.EnableEvents = False 'Don't let this change be detected
If Target = "Completed" Then 
                Target.Offset(0, 5) = Format(Date, "m/d/yyyy")
            Else 
                Target.Offset(0, 5).Clear 
            End If 
Application.EnableEvents = True
End Sub
Private Sub MarkQC(Target As Range)
Application.EnableEvents = False
If Target = "Completed" Then Target.Offset(0, 8) = Format(Date, "m/d/yyyy"
Application.EnableEvents = True
End Sub