I think you only really need one loop.
That would be to go through the textboxes, checking if they contain anything and if they do put the data on the worksheet.
Before the loop you could have code to find the next blank row.
Something like this perhaps, which assumes the textboxes are named Textbox1, Textbox2,...,Textbox20 and the labels are named Label1, Label2,...,Label20.
Dim rng As Range
Set rng = ActiveWorkbook.Sheets("TESTTYPE").Range("A" & Rows.Count).End(xlUp).Offset(1)
For I = 1 To 20
If Me.Controls("TextBox" & I).Value <> ""
rng.Value = cboName1.Value
rng.Offset(0, 1) = ComboBox.Value
rng.Offset(0, 2).Value = Me.Controls("Label" & I).Caption
rng.Offset(0, 3).Value = txtStartDate.Value
rng.Offset(0, 4).Value = Me.Controls("TextBox" & I).Value
Set rng = rng.Offset(1)
End If
Next I
Bookmarks