I am facing problem with folowing code cant add data to new row
Private Sub Submit_Click()
Dim ssheet As Worksheet
Set ssheet = ThisWorkbook.Sheets("S")
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ssheet.Cells(nr, 5) = Me.Tb1
ssheet.Cells(nr, 6) = Me.Tb2
ssheet.Cells(nr, 7) = Me.Tb3...