Office: einzelne Werte in Rechnung automatisch ändern

Hay!
Ich schon wieder!
hab mal noch eine Schönheitsfrage:
kann man das Makro so ändern das ich den Button oben in die Befehlszeile legen kann,
sprich also: das das Makro das gerade aktive Blatt als relevant erkennt und die entsprechenden Daten einfügt?
(Ich dachte da vor allem an Arztpraxen, wo die Schwestern oben auf nen Button drücken und die Rechnung des gerade aufgerufenen Patienten wird gedruckt und gespeichert, unabhängig davon wie groß die Tabelle ist.)
Ich habs mit
Workbooks.Open ("C:\Dokumente und Einstellungen\ingo\Eigene Dateien\Vorlage Rechnung.xls")
ActiveWorkbook.Sheets("Tabelle2").Range("B16") = ThisWorkbook.activesheets.Range("A1")
ActiveWorkbook.Application.Dialogs(xlDialogSaveAs).Show

Aber da sagt er mir:
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht


Außerdem hätte ich noch ein anderes Problem:
Bei bestimmten Kundenstämmen muß ich die Arbeitszeiten als Tabelle mit rein schreiben, das Problem dabei ist, dass ich nicht alle Spalten benötige und die Tabelle logischerweise verschiedene Längen hat.
Als Beispiel:
Ich möchte die Spalte A, C, D und H in meine Rechnung kopieren, während B und E-G nicht kopiert werden sollen.

Wär echt super wenn einer von euch Experten mir noch mal helfen könnten! ;-)

MFG
adpar