minha macro não ficou iqual a do video
ela ficou assim.
Sub filtro_avançado()
filtro_avançado Macro
Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("Produtos").Range("TB_Produtos[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("Planilha1!Criteria"), CopyToRange:= _
Range("Planilha1!Extract"), Unique:=False
End Sub
