Excel VBA If range value something then fills Columns G

Question

For example

If range A14:A200

If A14 = 1 so fill G14 Ok if A14 = 1 so fill G14 Ok and so on

For example if range A14:A200 if A14 = 1 so fill G14 Ok if A15 = 1 so fill G15 Ok and so on

Answer 1

Try this:

Sub IFSomething()

    With Range("A14:A200") reference the needed range
        With .Offset(, 6) ' reference the cells 6 columns to the right of referenced range
            .FormulaR1C1 = "=IF(RC[-6]=1,""OK"","""")" ' place a formula in referenced range
            .Value = .Value ' leave only values
        End With
    End With
    
End Sub