enter data from form into searched cells

Hi guys

I have a userform with 5 text boxes and a command button.

I also have a sheet with a large amount of data on it, arranged into sections with headings (sheet1).

The user will enter the section heading he desires into textbox1, then other data into all of the other text boxes. Then click the command button.

I need a code that will search sheet1 for the heading they entered into textbox one, then find the next empty cell BELOW the heading (in the same row). It will then put whatever the user entered in textbox2 into that cell, textbox3 in the cell directly to the right of it and textbox4 to the right of that one, and so on.

Can anyone help?

Probably, but attach a small sample workbook illustrating your request.

OK here is the example workbook, it explains how everything should work.

Like this? Not entirely sure how the data in your second sheet are laid out.

Private Sub CommandButton1_Click()

Dim r As Long, rFind As Range

With Sheets("Storage")
    Set rFind = .Range("E:E").Find(what:=Me.TextBox1.Value, Lookat:=xlWhole)
    If Not rFind Is Nothing Then
        r = rFind.End(xlDown).Row + 1
        .Cells(r, 5).Value = Me.TextBox2.Value
        .Cells(r, 6).Value = Me.TextBox3.Value
        .Cells(r, 7).Value = Me.TextBox4.Value
        .Cells(r, 8).Value = Me.TextBox5.Value
    End If
End With
        
End Sub

I cant get it to work..i have tried changing it to the following cod but it still just seems to do nothing...

Private Sub AddNewOrder_Click()

Dim r As Long, rFind As Range

With Sheets("Bristol Order Storage").UsedRange
    Set rFind = .Find(what:=Me.AddNewOrderTextBox1.Value, Lookat:=xlWhole)
    If Not rFind Is Nothing Then
        r = rFind.End(xlDown).Row + 1
        .Cells(r, 5).Value = Me.AddNewOrderTextBox2.Value
        .Cells(r, 6).Value = Me.AddNewOrderTextBox3.Value
        .Cells(r, 7).Value = Me.AddNewOrderTextBox4.Value
        .Cells(r, 8).Value = Me.AddNewOrderTextBox5.Value
    End If
End With
        
End Sub

If you look at the examplt workbook, on the storage sheet there is one section for data to sit..headed 'John smith' in the read workbook there will be numerous sections all with different headings, thats why the user has to define in the userform which section he wants to add to.

Oh ok, here is a copy of the actual sheet I will be using. is that any better?

Please see attached file.

ok, thats not what i want....

forget doing it that way then...

is there a way of doing it with the layout in testforsite.xlsx that i posted earlier...i realise that it will be a more complicated code but because of other factors in the final workbook it will be alot simpler doing it that way in the end.

Can it be done? If so will you help me ammend the code I have tried?