Hi Sue

The code below will take the value of each of the 24 textboxes and
pass it to the next empty row on the sheet 8 controls at a time. I
hope this is of some help to you

Option Explicit
Dim Ctrl As Control
Dim i As Integer
Dim NewRec As Range
Private Sub CommandButton1_Click()

Set NewRec = [D65535].End(xlUp).Offset(1, 0)

For i = 1 To 24

Set Ctrl = UserForm1.Controls("TextBox" & i)

If i = 9 Or i = 17 Then

Set NewRec = NewRec.Offset(1, -8)

End If

NewRec.Value = Ctrl.Value

Set NewRec = NewRec.Offset(0, 1)

Next i

End Sub

Steve