Excel files don't have an end of file as such. The contents are stored in a
complex file format, where the different formulas, values, etc, are
scattered through the file.
Is it more that you want to find the bottom row in a sheet? If so:
Call Cells(Rows.Count, "A").End(xlUp).Select
will select the bottom A cell that has a value in it. (Change the column if
A can't be relied on to always have something in it.) You can grab the
bottom row number in a variable if you need to. e.g.
Dim Bottom As Long
Bottom = Cells(Rows.Count, "A").End(xlUp).Row
Call MsgBox(Bottom)