Subtotal Macro Run Time error 1004 range of object global failed

I am very new to macros. I recorded a macro on a spreadsheet and tried to generalize it to accommodate various number of rows in the data. I am now getting a Run Time error of 1004 that says
Method of 'Range' of object' _global' failed.

The line of code that is in yellow is:
ActiveSheet.Sort.SortFields.Add Key:=Range("Won or Lost Quote"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal


The full code I have is:

Cells.Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("Won or Lost Quote"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("Quote Requested By"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("myData")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Cells.Select
Selection.Subtotal GroupBy:=13, Function:=xlSum, TotalList:=Array(16), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Is the "Won or Lost Quote" named range on the ActiveSheet when the Macro runs?

Yes, it is column M then I am sorting by column H which is Quote Requested By. There can be varying number of lines in the spreadsheet from month to month.

Thank you so much for the reply. I am still getting a run time error and the line highlighted in yellow is the second Range line:
.Range("A1").CurrentRegion.Subtotal GroupBy:=13, Function:=xlSum, TotalList:=Array(16), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Thank you so much. I trashed the file I was working in and made a new file and copied this in and it worked. Don't understand at all what happened because data was the same data just in different workbook. It works perfectly now. Thank you so much! need to mark this thread resolved! YAY!