kleine Ergänzung:
Sheets("2. Kostenträger").Activate sollte Sheets("Tabellenblatt1").Activate heißen.