Nur geraten: Set shQuelle = ActiveSheet änder das auf Set shQuelle = Worksheets("Name des Quellblattes")
Activesheet kann jedes Blatt sein. Aber die Basisdaten stehn sicher nicht auf jedem Blatt.