Mit VBA aus der Zeile, wo sich der Button befindet, Daten kopieren

Hallo Zusammen,

ich habe ein Tabellenblatt mit über 1000 Zeilen. In jeder Zeile befindet sich ein Button (Schaltfläche), dass dem Makro "drucken" zugewiesen ist.
Das Makro soll aus der Zeile wo die Schaltfläche angeklickt worden ist, zunächst Daten kopieren ins Tabellenblatt "Tabelle 3" und dann das Tabellenblatt ausdrucken.
Es soll der Wert von Spalte B nach Tabelle3!A1 und der Wert von Spalte C nach Tabelle3!A2
Ausdrucken geht mit Worksheets("Tabelle 3").PrintOut , wie ich bereits nachlesen konnte.
Doch wie mach ich das mit dem kopieren?

Sub drucken()
?
?
Worksheets("Tabelle 3").PrintOut
End Sub

Gruß,
veraxel

    iRow = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    ' MsgBox "Meine obere linke Ecke ist in Zeile " & CStr(iRow) & ".", vbInformation, "Position"  
    Worksheets("Tabelle3").Range("A1") = ActiveSheet.Cells(iRow, 2)  
    Worksheets("Tabelle3").Range("A2") = ActiveSheet.Cells(iRow, 3)  

Worksheets("Tabelle3").Range("A1") = ActiveSheet.Cells(iRow, "B")