Creating a macro and form control button

Hello all! I am currently having an issue trying to create a macro and having it work through the form control button. I am trying to sort a list alphabetically, where certain items may appear more than once in a sheet, these items also have information in the cells next to them that need to be sorted when these items get sorted.... (if that makes sense..?). I know how to record the macro and assign it to the button, but once these items are listed and I push my form control button, nothing happens.. I'm beginning to think I'm missing a step here.... Help!

Example of what I need this button to do...

I would enter the information as :

Banana 2
Strawberry 6
Apple 3
Orange 1
Peach 7
Banana 4
Apple 1

When I push the button I need it to read:

Apple 1
Apple 3
Banana 2
Banana 4
Orange 1
Peach 7
Strawberry 6

Private Sub CommandButton1_Click()
    Me.Hide
    Range("A1:B7").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B7")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    UserForm1.Show
End Sub