'This line returns TRUE whenever anyone enters anything in Column A or B
If Not Application.Intersect(Me.Range("A5:B100"), Target) Is Nothing Then
'This line return TRUE whenever anyone enters anything in Column B Only
If Not Application.Intersect(Me.Range("B5:B100"), Target) Is Nothing Then