Macro Pause to Select range then Subtotal
 

Hello: I am trying to create a macro that will allow a user to select a range, which can be variable each time, and then subtotal twice. The range is a list of filtered items that needs to be subtotaled along with the header and is 6 rows below the 1st row. Rows 1 thru 5 have additional information that is not part of the filtered range. The spreadsheet user has 3 assigned macro buttons. The first step is for the user to deselect items from the filtered list that they want and then run the 1st of 3 macros "delete rows macro" of those that are selected which they don't want. They then now have only the items they want. The next step is to run the 2nd macro "subtotal macro" for that list, which is where I have the issue. The "subtotal macro" will first sort on the list, then pause and ask the user to select a range and then go thru the subtotal process. When it gets to the subtotal step in the macro the error message "Microsoft Excel cannot detemine which row in your
list or selection contains column labels", which seems to be the problem. It doesn't seem that the pause in the macro which allows the user to select a range holds that range when it gets to the subtotal step. The last of the 3rd assigned macro buttons gives the user the ability to save the file with a name of their choosing. I have attached the code for the "subtotal macro" in this post. Any help if possible would be appreciated.
Thank you

Gene

Sub SORTSUBTOTAL()
'
' SORTSUBTOTAL Macro
'

'
ActiveWorkbook.Worksheets("Test Form").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Test Form").Sort.SortFields.Add _
Key:=Range("F7:F320"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Test Form").Sort.SortFields.Add _
Key:=Range("D7:D320"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Test Form").Sort
.SetRange Range("A7:F320")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Dim myRng As Range
Set myRng = Nothing
On Error Resume Next
Set myRng = Application.InputBox("Select a range", Type:=8)
On Error GoTo 0

If myRng Is Nothing Then
'user hit cancel
'what happens here
Else
MsgBox myRng.Address 'do what you want
End If
Selection.SUBTOTAL GroupBy:=6, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.SUBTOTAL GroupBy:=4, Function:=xlSum, TotalList:=Array(3), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Columns("F:F").ColumnWidth = 18.29
Columns("D:D").ColumnWidth = 10.43
End Sub