UserFormのイニシャライズの際にA列~H列の8つの項目のリストをListBox1に登録。
UserForm3.ListBox1.RowSource = Sht_work1 & "!A2:H" & (lngEndRow - 1)
※Sht_work1 と lngEndRow は変数。

その際に、左から2つの項目(振込先コード、振込先名)だけリストに表示。
ListBox1 のプロパティで、ColumnWidths を次のように設定

30 pt;150 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt


ListBox1のリストをクリックした時には、ListBoxに表示していないデータもセルに転記します。

Private Sub ListBox1_Click()
    Dim lngListIndex As Long

    Application.ScreenUpdating = False

    lngListIndex = Me.ListBox1.ListIndex

    Cells(ActiveCell.Row, "F").Value = Me.ListBox1.List(lngListIndex, 0) '振込先コード
    Cells(ActiveCell.Row, "G").Value = Me.ListBox1.List(lngListIndex, 1) '振込先名
    Cells(ActiveCell.Row, "M").Value = Me.ListBox1.List(lngListIndex, 3) '銀行
    Cells(ActiveCell.Row, "N").Value = Me.ListBox1.List(lngListIndex, 4) '支店
    Cells(ActiveCell.Row, "O").Value = Me.ListBox1.List(lngListIndex, 5) '種
    Cells(ActiveCell.Row, "P").Value = Me.ListBox1.List(lngListIndex, 6) '口座番号
    Cells(ActiveCell.Row, "Q").Value = Me.ListBox1.List(lngListIndex, 7) '口座名

End Sub