How to fix run time error 62: Input past end of file

Question

I have a problem while trying to execute this code:

Option Explicit
Dim acct_no As String
Public Sub UL_Single_Auto()

\'SECTION 1: Declare al