search from the top instead of the bottom

[gmazza76]

I am using the code below to populate a userform, but the code seems to go to the bottom then work its way upwards with criteria provided.

I need the inof to find the first blank cell in column 'N' and populate that row. I have amended the formula as per below but it bugs out on the point of loading the userform1

'Open file
Dim gotcha As Boolean
'Workbooks.Open Filename:="C:\Users\MAZZA\Documents\Gavin\Car Park\Data.xls" 'Home
Workbooks.Open Filename:="\\W2K6082\COMMON\SHARED\Gavin Mazza\Car Park\Data.xls"
Dim myBook As Workbook
 
On Error Resume Next
Set myBook = Application.Workbooks("Data1.xls")
On Error GoTo 0
    
'If Ash Longman - Call Centre Enquiry
Dim iRow As Long
Dim ws As Worksheet
Dim lRow As Long
Set ws = Worksheets("Ashley Longman")
If UserForm2.ComboBox1 = "Ashley Longman" Then
    Pword = InputBox("Please enter password")
    If Pword = "ticket" Then
    ActiveWorkbook.Sheets("Ashley Longman").Activate
    
    End If
    
    Unload Me
     lRow = Range("N" & Rows.Count).End(xlUp).Row + 1
     For i = 3 To lRow
        If Cells(i, 1).Value = "" Then Exit For
        If Cells(i, 1).Value <> "" And Cells(i, 14).Value = "" Then
     'For i = 5 To 65000 'OLD CODE REPLACED WITH ABOVE
        'If Cells(i, 1) = "" Then Exit For 'OLD CODE REPLACED WITH ABOVE
        'If Cells(i, 1) <> "" And Cells(i, 14) = "" Then 'OLD CODE REPLACED WITH ABOVE
            gotcha = True
            UserForm1.Show False 'DEBUGS @ THIS POINT AND I DONT KNOW WHY
            UserForm1.txtdate.Value = Cells(i, 1)
            UserForm1.TextBox1.Value = Cells(i, 3)
            UserForm1.TextBox13.Value = Cells(i, 2)
            UserForm1.TextBox2.Value = Cells(i, 4)
            UserForm1.TextBox3.Value = Cells(i, 7)
            UserForm1.TextBox6.Value = Cells(i, 5)
            UserForm1.TextBox5.Value = Cells(i, 6)
            UserForm1.TextBox4.Value = Cells(i, 8)
            UserForm1.TextBox7.Value = Cells(i, 9)
            UserForm1.TextBox8.Value = Cells(i, 10)
            UserForm1.TextBox9.Value = Cells(i, 13)
            UserForm1.TextBox14.Value = Cells(i, 11)
            UserForm1.TextBox15.Value = Cells(i, 12)
            UserForm1.TextBox11.Value = Cells(i, 4)
             
                     
            With UserForm1.CBoxAdd
                 .AddItem "Ash Young"
                 .AddItem "Chris Holcombe"
                 .AddItem "Chris Nash"
                 .AddItem "David Watson"
                 .AddItem "Gary Littler"
                 .AddItem "Kris Harwood"
                 .AddItem "Michelle Porter"
                 .AddItem "Tim Nickson"
                 .AddItem "Zenny Asghar"
             End With
             
             With UserForm1.txtdate
                 .Enabled = False
             End With
       
        End If
    Next
    
    If gotcha = False Then
        MsgBox "Nothing to Update"
    
        ActiveWindow.Close (True)
    
End If

Any help with this will be appreciated but the above loops 3 times to check different sheet