Môžeš to spraviť napríklad tak, že si vložíš do listu ListBox lbTables a Button. Pri stlačení tlačidla skopíruješ aktuálne označený riadok do vybranej tabuľky:
Rows(ActiveCell.Row).Copy (Worksheets("Sheet2").Rows(1 + lbTables.ListIndex))
Prípadne si vytvoríš UserForm, do ktorého dáš nejaký Label lbText, ListBox lbTables, Button btOk a Button btCancel. Kód bude vyzerať nejako takto:
Option Explicit
Private Sub btOk_Click()
CopyRowToTable
Hide
End Sub
Private Sub lbTables_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CopyRowToTable
Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Hide
Cancel = True
End Sub
Private Sub btCancel_Click()
Hide
End Sub
Private Sub CopyRowToTable()
' namiesto (1 + lbTables.ListIndex) sa vypocita pozicia, kam sa to ma skopirovat
Rows(ActiveCell.Row).Copy (Worksheets("Sheet2").Rows(1 + lbTables.ListIndex))
End Sub
Private Sub UserForm_Initialize()
' tu sa nainicializuju hodnoty, ktore maju byt na vyber
With lbTables
.AddItem "tabulka1"
.AddItem "tabulka2"
.AddItem "tabulka3"
.AddItem "tabulka4"
End With
End Sub