VBA - Autofilter sheet, then fill cells that are visible with a value

[JeffHaas]

I've got a spreadsheet which has been processed up to a certain point. Then I want to autofilter it and add a tag to just the visible cells. This code shifts a column over, adds the columns for the new tags, but then doesn't fill the visible cells with the tag. Any help appreciated!

Sub Add_ValueA_ValueB()'
' Add_ValueA_ValueB Macro
'
' Insert columns for ValueA and ValueB
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ValueA"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "ValueB"
    
' Filter column C for just "XYZZY"
    Cells.Select
    Selection.AutoFilter
    Range("C1").Select
    ActiveSheet.Range("$A$1:$F$190").AutoFilter Field:=3, Criteria1:= _
        "=*XYZZY*", Operator:=xlAnd


' ** Here's where I need help **
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Tag 1"
    Range("A2").Select  ' Doesn't select the cells visible after filtering  
    Selection.FillDown  ' Doesn't fill down the selection


End Sub

 

[JeffHaas]

After a lot of digging I found most of the solution in the code in this thread:
https://www.mrexcel.com/forum/excel...e-into-filtered-visible-cells-large-file.html

Look at post #9 and then the update on the second page.