Allow user one entry in 3 sets of cells (one for each table)

Question

I have 3 tables and one each one of them I only want to allow 1 cell with 1.

This is what I got so far.

Private Sub Worksheet_Change(ByVal Target As Rang