Thank you !

I have last question;

I will use this code for 8 column (A1:H1)
And I will filter the table according to column 5.

Which correction will be done? Is it enough to correct as follows:

Set myrng = ActiveSheet.AutoFilter.Range.Columns(2) -> Columns(5)
If mydic.Count > 0 Then ActiveSheet.AutoFilter.Range.AutoFilter Field:=2 -> Field:=5
If myAutoF Is Nothing Then Range("A1:B1").AutoFilter -> Range("A1:H1")

I made this change, but code did not run.