ＥＸＣＥＬ　ＶＢＡの質問です。

１の方のExcelファイルからユーザーフォームを追加して実現する方法

VBAでユーザーフォームを追加してComboboxとButtonを追加して１の方のようなフォームを作ります。

名前はデフォルトのComboBox1とCommandButton1にします。

Sheet1のコードを

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

に変えて作ったユーザーフォームを呼び出すようにして

ユーザーフォームのコードを以下

Private Sub ComboBox1_Change()
    Worksheets("納品書").Range("A3").Value = Worksheets("例文").Cells(ComboBox1.ListIndex + 4, 3).Value
    Worksheets("納品書").Range("A5").Value = Worksheets("例文").Cells(ComboBox1.ListIndex + 4, 4).Value
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    
    ComboBox1.Style = fmStyleDropDownList
    CommandButton1.Caption = "OK"
    Me.Caption = "例文抽出"
    
    i = 4
    While Worksheets("例文").Cells(i, 2).Value <> ""
        ComboBox1.AddItem (Worksheets("例文").Cells(i, 2).Value)
        i = i + 1
    Wend
End Sub