I am new to VBA and have run into an error that I am hoping someone can provide some help.
Below is the code I am running to insert a static date into column B when a "x" is entered into column A. The code works fine as long as I only enter 1 "X" at a time but if I try to drag and copy down column A I get the 'run-time error 13 Type mismatch' on the third line of code: "If Target.Value = "X" Then"
Why will it not let me drag and copy down column A?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A500")) Is Nothing Then Exit Sub
If Target.Value = "X" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End If
End Sub