Kenne Deinen Arbeitsmappenaufbau zwar nicht, aber teste mal folgendes:
Ersetze diese Zeile:
With Tabelle3
mit folgender:
With ThisWorkbook.Worksheets("ArbeitsblattName")