record a macro,
filter your data on an invoice
save the macro.
edit the macro
then add at the end
ActiveSheet.Range("a1").CurrentRegion.Select
Selection.Copy
Worksheets.Add
ActiveSheet.Paste