Slette mindste tal?

Jeg har følgende makro, der sletter det mindste tal i cellerne a1:a12 hvis der er 1-6 tal i rækken g 2 mindste hvis der er 7-12.
Hvordan får jeg det til at gælde fra fx B6:L17. Hvis jeg bare indsætter det istedet for a1:a12 sletter den kun i de første 2 kolloner af gangen.
Sidste spørgsmål, er om man ikke kan gøre noget, så man kan fortryde en makro med fortrydknappen?

Sub SletMindste()
'Jkrons 03-2003
    Dim a As Byte
    Dim b As Double
    a = 0

    For Each c In Worksheets("ark1").Range("a1:a12").Cells
        If Not IsEmpty(c) Then a = a + 1
    Next
    Set myrange = Worksheets("ark1").Range("A1:a12")
    If a > 6 Then
        b = Application.WorksheetFunction.Small(myrange, 1)
        c = Application.WorksheetFunction.Small(myrange, 2)
        Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Select
        Selection.ClearContents
        Cells.Find(What:=c, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Select
        Selection.ClearContents
    Else
        b = Application.WorksheetFunction.Small(myrange, 1)
        Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Select
        Selection.ClearContents
    End If

End Sub