リストボックスのデータは、「Test.xls」の「Sheet1」のセルA1〜A10を設定します。
そのデータを、「Test.xls」の「Sheet2」に転記します。

　フォームに、コマンドボタン「CommandButton1」とリストボックス「 ListBox1」を
配置します。

　まず、フォームを表示する時に発生するイベント「Initialize」で、リストボックス
のRowSourceプロパティを設定します。

Private Sub UserForm_Initialize()

    ListBox1.RowSource = "[Test.xls]Sheet1!A1:A10"
    
End Sub

　次に、コマンドボタンをクリックした時に発生するイベント「Click」で、リスト
ボックスのデータを転記する処理を行います。

Private Sub CommandButton1_Click()

    Dim DataArea As String

    DataArea = ListBox1.RowSource
    Range(DataArea).Select
    Selection.Copy
    
    Sheets("Sheet2").Select
    Cells(1).Select
    ActiveSheet.Paste

End Sub