Zahlenwerte begrenzen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim efz%
If Target.Address = "$B$6" Then
Application.EnableEvents = False
efz = Cells(Rows.Count, 2).End(xlUp).Row + 1
If efz 

Sobald ich also eine Eingabe in B3 mit Enter bestätige wird der eingegebene Wert in die nächste frei Zeile in Spalte B eingetragen.
Ich möchte nun noch folgendes erreichen:
-Es dürfen nur volle Zahlenwerte zwischen 1 und 100 akzeptiert werden
-Die Summe aus Spalte B wird von einer Zahl in Zelle B3 abgezogen. Der Rest in B3 darf nur die Werte 0 oder eine Zahl >1 annehmen.
Wie kann man das machen?
Gruß
Carsten