NEXT EMPTY CELL.mi

My Worksheet "ScopeOfWork " contains the table "BreakDown". The following CODE helps me to my items on my "Item No." column.
However, it starts numbering outside my table. Can someone help me to fix it?
Thank you.

P.D. Sorry, I tryed to upload my project but I wasn't able too.

Hopefully someone can help, thanks again.

Sub ScopeOfWork()
'Make sure Sheet "ScopeOfWork" is active.
Sheets("ScopeOfWork").Activate
    NewItem
    ShowUserForm
    ColumnWidthSize
End Sub
Sub NewItem()
        If MsgBox("CREATE A NEW ITEM", vbYesNo) = vbYes Then
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = Application.WorksheetFunction.CountA(Range("B:B")) & Chr(46)
    End If
End Sub
Sub ShowUserForm()
         UserForm1.Show
         Unload UserForm1
End Sub
Sub ColumnWidthSize()
    With Columns("A:A").Select: Selection.ColumnWidth = 4
         Columns("B:B").Select: Selection.Columns.AutoFit
         Columns("C:C").Select: Selection.Columns.AutoFit
         Columns("D:D").Select: Selection.ColumnWidth = 4
         Columns("E:E").Select: Selection.Columns.AutoFit
         Columns("F:F").Select: Selection.ColumnWidth = 20
         Columns("G:G").Select: Selection.ColumnWidth = 10
         Columns("H:H").Select: Selection.ColumnWidth = 10
         Columns("I:I").Select: Selection.ColumnWidth = 10
         Columns("J:J").Select: Selection.ColumnWidth = 10
         Columns("P:P").Select: Selection.ColumnWidth = 6
    End With
End Sub