paste formula into only filtered cell

[jaik22]

Sub Macro10()
Dim LastRowColumnA As Long: LastRowColumnA = Sheets("Sayn").Cells(Rows.Count, 1).End(xlUp).Row
     ActiveSheet.Range("G4:L4").AutoFilter Field:=5, Criteria1:="<>YES" _
    , Operator:=xlAnd
    Range("H5:H" & LastRowColumnA).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "0"
end sub

Hi guys, I am trying to paste values into filtered cells. This is what I got and it does not return anything.
Do you guys have any idea?

Thanks

 

[wigi]

Hello,

Start with code like this and if needed, extend it.

Sub Macro10()    
    With Range("G4").CurrentRegion
        .AutoFilter Field:=5, Criteria1:="<>YES"
        .Resize(, 1).Offset(, 1).SpecialCells(xlCellTypeVisible).Formula = "=100+20"
    End With
    
End Sub