AUTO GENERATE NUMBERS to antoher worksheet

[wstring]

I'm trying to write a macro to lookup the last number used in a column and auto generate the next number on another worksheet. This is what I have so far, the number changes but not base on the last number.

Sub Next_ECN_Number()
    Sheets("DataECN").Select
    Range("E:E").End(xlDown).Select
    Sheets("ECN").Select
    Range("G3").Value = Range("G3").Value + 1
   
End Sub