userform data capturing in next available row

Or use this code to clear cells if the last row is 47.

Sub testr()

With ActiveSheet

    .Range("A1").Resize(.Range("A" & .Rows.count).End(xlUp).Row + 1).Clear
   
End With

End Sub