If Not Intersect([J6:J600], Target) Is Nothing Then
a = Array("n")
p = Application.Match(Target, a, 0)
If IsError(p) Then
Target = a(0)
Else
If p > UBound(a) Then p = 0
Target = a(p)
End If
Cancel = True
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 3).Activate
ActiveCell.Value = "n"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "n"
End If