How to use a Zoop function in an invoice form

[KHines]

I need help in how to write a simple code to operate a zoop function. I have a invoice that I use a userform to enter in parts numbers. I would like it to zoop down the row till it finds the first open cell. It would search Row E55 to E68 and input the userform value. Once all the cells are full it would state so. Here is the code I am using to get the information to the invoice:

Private Sub CommandButton2_Click()
Worksheets("Order Form").Range("E55") = UserForm7.ComboBox1.Value
End Sub

Now what??
Thanks

[TryingToLearn]

you talk about "down the row" but I assume you mean down the column.
try this:

Private Sub CommandButton2_Click()
    Dim tgt
    With Sheets("Order Form")
        With Range("e65536")
            tgt = .End(xlUp).Offset(1, 0).Row
            If tgt < 55 Then tgt = 55
            If tgt > 68 Then
                MsgBox "Range is full"
                Exit Sub
            Else
                Cells(tgt, 5) = ComboBox1
            End If
        End With
    End With
End Sub

[KHines]

You are right I meant columns. When I applied your code it did not input the information into the Column E55 to E68 but did give me a message that the range was full even though no information was entered. Any ideas as I am only learning code.
Thanks again
Rookie

[TryingToLearn]

When I applied your code it did not input the information into the Column E55 to E68 but did give me a message that the range was full even though no information was entered.

I made the assumption that there is nothting else in col E after these entries. The code checks for the last cell with data in in in col E. If there is data past this it will not work properly.


Change the line:

With Range("e65536")

to:

With Range("e69")

and that should correct this.

[KHines]

Thanks that is exactly what it needed. Hope you have a great day I will thanks to your help.
KH