Actually, I realized the Data Validation in column A is circumvented by this new entry method. This last tweak puts that value check into the macro itself, so you can only enter values between 0 - 36. Try it out.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F5")) Is Nothing Then
Application.EnableEvents = False
If Target < 0 Or Target > 36 Then
MsgBox "Only values 0-36 are acceptable, please try again."
Target.ClearContents
Target.Select
Else
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Target.Value
Target.ClearContents
Target.Select
End If
Application.EnableEvents = True
End If
End Sub
Bookmarks