Macro select data with automatic filter

Hello to all.
In the attached workbook is this possible with a macro?

I select the range > Macros > msgbox = 18 > ok

(18 = example)

max_max

Please Login or Register  to view this content.

Hello to all.
This macro not found the date:

Please Login or Register  to view this content.

max_max

Hello,
you can add a new criteria to also search the dates here.

c = Range("A2")
c = c & "*"
c = "*" & c & "*"

I am attaching the workbook.
max_max

Hello to all,
maybe I explained bad editing is not possible?
max_max

Hello macro with format cells text or number works, but not with the format cells = dates (years), help to correct?
max_max