Zellen innerhalb einer Range mit einem Inhalt unter einem bestimmten wert löschen

Leider bin ich nicht in der spannenden Position öfters zu scripten, daher bin ich immer, sobald ich es mal wieder muss, schwer eingerostet.

Folgende Situation:
In einer Tabelle die 3 Spalten und 2 Reihen hat sind folgen Werte eingetragen: A1: 85, B1:55, C1: 50, A2:45, B2:75, C2:60
Nun möchte ich in der Range A1:B2 alle Werte unter 60 automatisch löschen lassen (Spalte C möchte ich aber unberührt/ungeprüft lassen)

Wie kann ich das bewerkstelligen?

Mein gegenwärtiger Script:
Range("A1:B2").Select
Selection.Replace What:="<60", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
funktioniert logischerweise nicht weil dieser nur den genauen Wert <60 sucht... Was muss ich machen, daß er alle Werte kleiner 60 löscht?

Herzlichen Dank

B

Sub KleineWerteEntfernen()
For Each Cell In Range("A1:B2").Cells  
    If Cell.Value < 60 Then Cell.Value = ""  
Next
End Sub