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.

 

[MARK858]

Please can you upload a copy of your workbook to a free (the non-business versions) file hosting site like www.box.com or www.dropbox.com.
Sanitize any sensitive data before uploading
Remember to mark the file for sharing and then paste the link it provides in the thread.

 

[Abdo]

Please can you upload a copy of your workbook to a free (the non-business versions) file hosting site like www.box.com or www.dropbox.com.

ok, now I'm at work and version 2016 and works, but at my home version is 2010 and shows error .
so when come back home about after 4 hours at least I will upload the file.