Find the last cell with value in column E and Send value of textbox to the same row in col

Hello

I use this code for transfer data from a User form in sheet DataBase, column E.

Private Sub CommandButton1_Click()

Dim i As Integer
Dim lRow As Long
For i = 1 To 4
    If Me.Controls("ComboBox" & i).Value = True Then
        With Sheets("DataBase")
            lRow = .Range("e" & .Rows.Count).End(xlUp).Offset(1).Row
           .Range("e" & lRow).Value = Me.Controls("ComboBox" & i).Value
            
        End With
    End If
Next i
End Sub

My goal is to send the value of textbox1, in sheet DataBase, column L, in the last row that exist data in column E.

So if column E has data until row 6, then value of textbox must tranfered in L6.

Thanks in advance for any assistance.