How use RC formulas when fill three columns

[Abdo]

Hello
I have this code.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lr As Long
    If Target.Address = Range("G2").Address Or Target.Column = 5 Or Target.Column = 6 Then
        Application.EnableEvents = False
        lr = Cells(Rows.Count, "B").End(xlUp).Row

        Range("G2").FormulaR1C1 = "=RC[-2]-RC[-1]"
        Range("G3:G" & lr).FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
        Range("G3:G" & lr).Value = Range("G3:G" & lr).Value
        Application.EnableEvents = True
    End If

End Sub

I try when fill column E or F then will fill two formula
in G2=E2-F2
G3=G2+E3-F3
G4=G3+E4-F4
and so on .
the code will show error in G2,G3 =#VALUE
any help guys,please?

 

[MARK858]

What do the formulas

=ISNUMBER(E2)

and

=ISNUMBER(F2)

return?

 

[MARK858]

Also what do the formulas

=CODE(E2)
=UNICODE(E2)
=CODE(F2)
=UNICODE(F2)

Return?

 

[jolivanes]

Do you have values in B2 on down?

 

[Abdo]

ISNUMBER gives true
CODE gives 50
UNICODE gives #NAME?

 

[Abdo]

Do you have values in B2 on down?

not numbers

 

[MARK858]

ISNUMBER gives true
CODE gives 50
UNICODE gives #NAME?

There should be 6 answers so you there are 3 missing (2 now as you can ignore the unicode formula as you are using your 2010 version)

The Name error will be because you are using your 2010 version and not your 2019 version

 

[Abdo]

There should be 6 answers so you there are 3 missing

if you mean F2 the only different answering is CODE =51.