Fill a filtered column in a table with a text value "Y"

[johnlink]

Hi All

Using MS Excel 365.
Making VBA code to work on a table of data.
Code has applied a filter to the data and now want it to fill all cells in a column "E" with a text flag value "Y"
I can have my code go to the column header but cannot then activate the first filtered cell below in order to add the "Y" flag and then follow up with a fill down command.

Any macro recordings I have done just use absolute refs and cannot seem to find a way to just select the first row of the filtered data.

Have even tried sendkeys but no luck - probably a bad idea anyway?

Just a newbie so pls be kind

Thanks to all for time eagerly awaiting responses.

JP

 

[RoryA]

Something like:

Activesheet.listobjects(1).listcolumns("YES").databodyrange.specialcells(xlcelltypevisible).value = "Y"

 

[johnlink]

OK thanks very much to RoryA for that amazing code - I put it in to my VBA module and all was solved.
I am still at a level of "recording" a macro then using the code from that recording to add to my modules - at times the recorder cannot perform the types of actions I need EG in this case.
Guess I will have to bite the bullet and get a good book of "how to write VBA code for Excel"??
Anyone with suggestions from their experience?
Thanks again RoryA.