Hallo zusammen

Mit: 

Option Explicit

Sub NachDruckversion()
'aktive Mappe = Auffang.xlsm
Dim wbQ As Workbook, wbZ As Workbook
Dim arrCH() As Variant              'Datenfeld1
Dim arrRT() As Variant              'Datenfeld2
Dim rngZiel As Range                'Zielzelle
Dim rngQuelle As Range              'zu verschiebende Daten
Dim lngLast As Long                 'jew. letzte Zeile
  
'nur aktive Mappe = Auffang.xlsm
If Workbooks.Count > 1 Then Exit Sub
'Seiten gefüllt, sonst Abbruch
With Sheets("Zweiteseite")
   If Application.WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
End With
With Sheets("Dritteseite")
   If Application.WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
End With
  
  
On Error GoTo eHandler
Application.ScreenUpdating = False
Set wbQ = ActiveWorkbook
Workbooks.Open Filename:=ThisWorkbook.Path & "\Druckversion.xlsm"
Set wbZ = ActiveWorkbook

'Mappe = Druckversion.xlsm - leeren
wbZ.Sheets("Zweite").Cells.Clear
wbZ.Sheets("Dritte").Cells.Clear
  
'Daten aufnehmen

lngLast = wbQ.Sheets("Zweiteseite").Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
wbQ.Sheets("Zweiteseite").Range("C1:H" & lngLast).Copy wbZ.Sheets("Zweite").Range("A1")
wbQ.Sheets("Zweiteseite").Range("P1:T" & lngLast).Copy wbZ.Sheets("Zweite").Range("G1")


lngLast = wbQ.Sheets("Dritteseite").Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
wbQ.Sheets("Dritteseite").Range("C1:H" & lngLast).Copy wbZ.Sheets("Dritte").Range("A1")
wbQ.Sheets("Dritteseite").Range("P1:T" & lngLast).Copy wbZ.Sheets("Dritte").Range("G1")

'speichern, schließen
wbZ.Close True
  
eHandler:
Select Case Err.Number
   Case 0   'erfolgreich
   Case Else
      MsgBox "Fehler bei der Ausführung"
End Select
  
Application.ScreenUpdating = True
  
End Sub

Gelöst

Danke Michael

Gruss