Private Sub CommandButton1_Click()
Dim i As Long, ob As Object, tbl
ReDim tbl(1 To 7)
i = 1
For Each ob In UserForm1.Controls
If ob.Name = "TextBox" & i Then
tbl(i) = ob.Value
i = i + 1
ob.Value = ""
End If
Next ob
With Sheets(ComboBox1.Value)
.Activate
.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, UBound(tbl)).Value = tbl
End With
Erase tbl
Me.Hide
End Sub