Private Sub TextBox1_Change()
　Dim N As String, i As Long, j As Integer, WS As Worksheet
　Set WS = Worksheets("sheet1")
　Me.ListBox1.Clear
　N = TextBox1.Text
　With WS
　　For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
　　　If N = .Cells(i, 1) Then
　　　　For j = 2 To .Cells(i, Columns.Count).End(xlToLeft).Column
　　　　　Me.ListBox1.AddItem .Cells(i, j).Value
　　　　Next
　　　End If
　　Next
　End With
End Sub

　　このコードの使い方は、マクロの使い方(２)該当するシートのモジュールにあります。

1.　sheet2を表示し、【ツール】【ユーザー設定】【ツールバー】で
　　【コントロールツールボックス】にチェックを入れます。
2.　【リストボックス】をクリックし、シート内の任意の場所にドラッグして配置します。
3.　配置した【リストボックス】を右クリックし、【プロパティ】を出し、
　　【LinkidCell】に、A1　と入れ
　　【ListFillRange】に、Sheet1!$A:$A　と入れて、【プロパティ】を閉じます。
4.　再度【リストボックス】を右クリックし、【コードの表示】で

　　　Private Sub ListBox1_Click()

　　　End Sub
　　
　　と言うコードが出てきますので、
　　この２行の間に、下のコードを貼り付けます
　　
Dim a As String, i As Long, WS1 As Worksheet
Set WS1 = Worksheets("sheet1") '参照元シート
Range(Cells(2, 1), Cells(Cells(Application.Rows.Count, 1).End(xlUp).Row, 4)).ClearContents
a = Cells(1, 1)
With WS1
.Rows(1).Copy Range("A2")
For i = 2 To .Cells(Application.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = a Then .Rows(i).Copy Cells(Cells(Application.Rows.Count, 1).End(xlUp).Row + 1, 1)
Next
End With

5.　右上の×ボタンでシートに戻ります。
6.　【コントロールツールボックス】の中の、三角定規のアイコンをクリックし、
　　デザインモードを終了します。
　　
これで、【リストボックス】にsheet1のＡ列の注文番号が表示され、
クリックするとその行のデータがsheet2の３行目以降に書き出されます。　　　

Sub コンボボックス作成()
　Dim i As Integer
　For i = 1 To 20
　　Cells(i, 1) = "リスト" & i
　Next
　ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
　　　　DisplayAsIcon:=False, Left:=Cells(1, 4).Left, Top:=0, _
　　　　Width:=120, Height:=24).Select 　　　　'Widthはリストの横幅、Heightは縦の長さを指定します
　With Selection
　　.ListFillRange = "A:A"　　　　　　 'リストに表示するセル範囲。他のシートの場合は"sheet1!A:A"とします
　　.Object.ListRows = 15　　　　　　 'リストに表示する項目数
　　.Object.Font.Size = 14　　　　　　 'リストの文字の大きさ
　End With
　Application.CommandBars("Control Toolbox").Visible = False
　Range("C1").Select
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　On Error Resume Next
　If Target.Column <> "3" Then
　　ComboBox1.Visible = False
　　Exit Sub
　End If
　With ActiveSheet.Shapes("ComboBox1")
　　.Visible = True
　　.IncrementTop Target.Top + Target.Height - .Top
　　.IncrementLeft Target.Left - .Left
　　.Select
　　Selection.LinkedCell = Target.Address
　End With
　Target.Select
End Sub
　　このコードの使い方は、マクロの使い方(２)該当するシートのモジュールにあります。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　If TextBox1.Value < 10 Then　　　　　　　　　　　　　　　　　'テキストボックスの入力値が、10より小さい時
　　MsgBox ("TextBox1 の入力値が正しくありません。")
　　Cancel = True 　　　　　　　　　　　　　　　　　　　　　　　　'次のコントロールにフォーカスを移動させない
　　TextBox1.Value = ""
　End If
End Sub
　　このコードの使い方は、マクロの使い方(４)ユーザーフォームのモジュールにあります。

Private Sub UserForm_Initialize()
　'ComboBox1セット
　Dim ico As Long
　ico = 1
　With ThisWorkbook.Worksheets("Sheet1")
　　Do While .Cells(1, ico) <> ""
　　　Me.ComboBox1.AddItem .Cells(1, ico).Value
　　　ico = ico + 1
　　Loop
　End With
　Me.ComboBox1.SetFocus
End Sub
Private Sub ComboBox1_Change()
　'ListBox1セット
　Dim ico As Long
　'Me.ListBox1.Clear
　ico = Me.ComboBox1.ListIndex + 1
　With ThisWorkbook.Worksheets("Sheet1")
　　Me.ListBox1.List = .Range(.Cells(2, ico), _
　　.Cells(.Cells(Rows.Count, ico).End(xlUp).Row, ico)).Value
　End With
End Sub
　　このコードの使い方は、マクロの使い方(４)ユーザーフォームのモジュールにあります。

Sub test(ByVal i As String)
　If i = "CommandButton1" Then
　　MsgBox i & " が押されました。処理を開始します。"
　ElseIf i = "CommandButton2" Then
　　MsgBox i & " が押されました。終了します。"
　End If
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。