VBA Autofilter change cells

Hi all,

I am trying to write a code that filters an area and then chages the contents of one of the columns; but only of the visible cells.
I have tried a lot of codes online but none of them seem to work, can anyone help me?

Sub FilterMacro()
'
' FilterMacro Macro
'
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$AK$221960").AutoFilter Field:=2, Criteria1:="#N/A"
ActiveSheet.Range("$A$2:$AK$221960").AutoFilter Field:=13, Criteria1:= _
"Action ordinaire"
ActiveSheet.Range("$A$2:$AK$221960").AutoFilter Field:=8, Criteria1:= _
"Equities"

that is the filter, then I would like to change the contents of the visible cells column B to "Shares".

this would save me so much time.

Thank you in advance,

Daniel

Try adding the following and see if it meets your needs (test it on a copy of the workbook, not original data, so it doesn't corrupt your data if not correct)

Intersect(Activesheet.Usedrange, Columns(2)).value = "Shares"

Worked perfectlty Thank you!

You just earned yourself some reputation!

Thanks, please come again LOL

HI BigBas,

Realised your fomula does not work as well as I thought because it also changes the column header and any visible row on the column, would you know how to change it so that it only changes the those cells?

ActiveSheet.Range(Selection.Address).AutoFilter Field:=15, Criteria1:= _
"Ultimate Parent Company Kingdom of the Netherlands"
Intersect(ActiveSheet.UsedRange, Columns(15)).Value = "ABN NV"

Thank you.