Convert Recorded Macro Selections to Current Selection Excel 2007

Here's a recorded macro. I'm having no luck changing the selection(s) to "active selection". I think the search terms required to get an answer are simply too generic.

Bottom line: I want to sort the active selection without being prompted to extend it. Sort A-->Z. I will run the macro from a shape on the worksheet, so I just need a standard sub. Thanks soooo much!!

Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("G5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("G5:G11")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Select allOpen in new window