Could someone please tell me what is wrong with this section of my macro and why I am receiving the error message: "THE EXTRACT RANGE HAS A MISSING OR ILLEGAL FIELD NAME"

Range("G14:G" & Bottomrow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"H14"), Unique:=True