Second Advanced Filter not Working

[martipe1]

I recorded a macro for advanced filtering, the first filter is to extract data that meets the criteria(value >0), and the second one using one column (dates) of the first extracted data to get unique data, but this last part is not working as it returns blanks.

This is the code recorded

Sub Macro6()
'
' Macro6 Macro
'

'
Range("A1:G5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:O2"), CopyToRange:=Range("Q1"), Unique:=False
Columns("S:S").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Z1" _
), Unique:=True


End Sub

What's wrong?

Thanks

 

[DanteAmor]

The macro works for me.
Put your test data sample here.
Use XL2BB tool minisheet.

 

[martipe1]

Thank you very much for your feedback, below you will find my minisheet

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Register Date	Responsible	Deposit Date	Amount	Balance	Counter	Identifier		Register Date	Responsible	Deposit Date	Amount	Balance	Counter	Identifier
2	09/17/2021 13:19:01	Eduardo Martinez	17/09/2021	2500	2500	1	1*44456*2500						>0
3	09/17/2021 13:29:00	Eduardo Martinez	15/09/2021	1700	1700	2	2*44454*1700
4	09/17/2021 13:29:17	Eduardo Martinez	16/09/2021	300	0	3	3*44455*300
5	09/17/2021 13:29:47	Eduardo Martinez	15/09/2021	1500	1500	4	4*44454*1500
Sheet1

 

[Fluff]

You need to clear the criteria range, try

Sub Macro6()
'
' Macro6 Macro
'

'
Range("A1:G5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:O2"), CopyToRange:=Range("Q1"), Unique:=False
Columns("S:S").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Range("Z1" _
), Unique:=True


End Sub

 

[martipe1]

You need to clear the criteria range, try

Sub Macro6()
'
' Macro6 Macro
'

'
Range("A1:G5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:O2"), CopyToRange:=Range("Q1"), Unique:=False
Columns("S:S").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Range("Z1" _
), Unique:=True


End Sub

Thank you!!
That was the issue.

 

[Fluff]

Glad we could help & thanks for the feedback.