Thanks to the author herself--Debra,

I input the code into your example and it worked.  It did not work in
mine, which is laid out a little different.  I'm only getting the first
name from the 'database' (from IV2 on a "Students" sheet) put into the
top row of the filtered list (A1 on a "NameList" sheet).  No other
names are included.  I hate to say how much time I've spent on this...

Here are the sheets:

Students--contains the data
GradeList--contains the categories of grade levels (6 through 12)
NameList--to hold the filtered list of names from code
Schedules--contains the filter criteria, range is J1:K2

Here are the defined ranges:
AllGrades=OFFSET(Students!$G$1,0,0,COUNTA(Students!$G:$G),1)
Abbreviated=OFFSET(Students!$J$1,1,0,COUNTA(Students!$J:$J)-1,1)
Database=OFFSET(Abbreviated,0,246,COUNTA(Abbreviated),1)
GradeList=OFFSET(GradeList!$A$2,0,0,COUNT(GradeList!$A:$A),1)
NameList=NameList!$A$1:$A$119

Here's the code:

Sub ApplyFilter()
Dim wsGL As Worksheet
Dim wsNL As Worksheet
Dim wsO As Worksheet
Dim rngAD As Range

Set wsGL = Sheets("GradeList")
Set wsNL = Sheets("NameList")
Set wsO = Sheets("Students")
Set WsC = Sheets("Schedules")
Set rngAD = wsO.Range("AllGrades")

'update the list of dates
 wsGL.Range("A1").CurrentRegion.ClearContents
 'rngAD.Offset(-1, 0).Resize(rngAD.Rows.Count + 1).Select
 rngAD.AdvancedFilter _
   Action:=xlFilterCopy, CriteriaRange:="", _
   CopyToRange:=wsGL.Range("A1"), unique:=True
 wsGL.Range("A1").CurrentRegion.Sort _
     Key1:=wsGL.Range("A2"), Order1:=xlAscending, header:=xlYes
'filter the list
wsO.Range("Database").AdvancedFilter _
   Action:=xlFilterInPlace, _
   CriteriaRange:=WsC.Range("J1:K2"), unique:=False

'create unique list of students
  wsO.Range("Database").AdvancedFilter _
    Action:=xlFilterCopy, CriteriaRange:=WsC.Range("J1:K2"), _
    CopyToRange:=wsNL.Range("A1"), unique:=True
  wsNL.Range("A1").CurrentRegion.Sort _
      Key1:=wsNL.Range("A2"), Order1:=xlAscending, header:=xlYes
  ThisWorkbook.Names.Add Name:="NameList", _
  RefersTo:=wsNL.Range("A1").CurrentRegion

End Sub

Sub RemoveFilter()

Dim wsGL As Worksheet
Dim wsNL As Worksheet
Dim wsO As Worksheet
'Dim rngAD As Range

Set wsGL = Sheets("GradeList")
Set wsNL = Sheets("NameList")
Set wsO = Sheets("Students")
Set WsC = Sheets("Schedules")
'Set rngAD = wsO.Range("AllGrades")

''create unique list of products
  wsO.Range("Database").AdvancedFilter _
    Action:=xlFilterCopy, CriteriaRange:="", _
    CopyToRange:=wsNL.Range("A1"), unique:=True
  wsNL.Range("A1").CurrentRegion.Sort _
      Key1:=wsNL.Range("A2"), Order1:=xlAscending, header:=xlYes
  ThisWorkbook.Names.Add Name:="NameList", _
    RefersTo:=wsNL.Range("A1").CurrentRegion

On Error Resume Next
   Sheets("Students").Select
   ActiveSheet.ShowAllData
   Sheets("Schedules").Select
'    ActiveSheet.ShowAllData
End Sub

Any help would be greatly appreciated.