Find Next Empty Row In Spreadsheet Using A Userform

I‘ve made a Userform which should transfer data form the userform to a spreadsheet (see Example). Because the spreadsheet contains a formula in column A the data must be place in column B and further. This part of the code is working. I also want the data to be placed at the first empty row. The following code works when no data or a formula is entered in column A. Because column A contains data up to row number 14 the data will be placed in the first empty row number 15.

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

' Find First empty row
lRow = ws. Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

The code has to be changed so it will find the first empty row. If I use the userform in this example the data must be place in row number 6 in the columns B till L.