Macro to insert formula based on filter and visible cells

[Kinez101]

I am trying to create a macro to change value of the visible cells in column Y from zCSS to zContractAdmin based on the value of column K. This is the macro I have tried to use but it's giving me error on Formula. Any help is greatly appreciated.

Sub Macro2()


    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWindow.LargeScroll ToRight:=1
    ActiveSheet.Range("$A$1:$BR$32000").AutoFilter Field:=25, Criteria1:="zCSS"
    Columns("Y:Y").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.SpecialCells(xlCellTypeFormula).Formula="=IF((OR(K:K="C075",K:K="C099",K:K="C170",K:K="C228",K:K="D000",K:K="D060",K:K="D113")),"zContract Admin","zCSS")"
    
End Sub

 

[mumps]

Try:

Sub ReplaceVal()
    Application.CutCopyMode = False
    Dim rng As Range
    ActiveSheet.Range("$Y$1:$Y$3200").AutoFilter Field:=1, Criteria1:="zCSS"
    For Each rng In Range("$K$2:$K$3200").SpecialCells(xlCellTypeVisible)
        Select Case rng.Value
            Case "C075", "C099", "C170", "C228", "D000", "D060", "D113"
                Range("Y" & rng.Row) = "zContract Admin"
        End Select
    Next rng
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    Application.CutCopyMode = True
End Sub

 

[Kinez101]

It worked. Thank you!

 

[mumps]

You are very welcome.