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