Can't write code to find last data row in excel user form

I wouldn't use a Loop to find the next row

Option Explicit


Private Sub UserForm_Initialize()
    MsgBox NextRow(Sheet2)
End Sub

Function NextRow(Optional sht As Worksheet) As Long
    If sht Is Nothing Then Set sht = ActiveSheet
    With sht
        NextRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    End With
End Function