nach dem kopieren eine Zeile runter

[Enclave]

Hallo zusammen,
ich komme nicht auf die Lösung ich will nach dem ich einen bereich von ca 90 Zeilen länge eingefügt habe 3 Zeilen darunter den nächsten einfügen.
ich muss mit Offset arbeiten denke ich. aber nichts funzt
Ich bin noch anfänger mit VBA also sorry wenn hier große schnitzer drin sind

Code:

Sub neu()

'
ThisWorkbook.Sheets("Woche").Activate
Range("A1").Select
For Index = 1 To 6

Workbooks.Open ("Z:\***\INTERN\16.Auswertungen\" & Date - Index & ".xlsx")
ActiveSheet.Range("A1:AD86").Copy

ThisWorkbook.Sheets("Woche").Activate
ActiveCell.Offset(1, 0).Select
ActiveSheet.PasteSpecial xlPasteAllMergingConditionalFormats
'ThisWorkbook.Sheets("Woche").Offset(1, 0).PasteSpecial xlPasteAllMergingConditionalFormats
Application.CutCopyMode = False


'ActiveWorkbook.Close



'
Exit For
Next



End Sub

[ralf_b]

Code:

Sub neu()

  Dim wb As Workbook
  Dim thiswb As Workbook
   
  Set thiswb = ThisWorkbook
   
    Range("A1").Select
    For Index = 1 To 6
       
        Set wb = Workbooks.Open("Z:\***\INTERN\16.Auswertungen\" & Date - Index & ".xlsx")
        wb.ActiveSheet.Range("A1:AD86").Copy
        thiswb.Sheets("Woche").Cells(Rows.Count, 1).End(xlUp).Offset(3).PasteSpecial xlPasteAllMergingConditionalFormats
        Application.CutCopyMode = False
        wb.Close
        'Exit For
    Next
     
End Sub

[Enclave]

Dankeschön das hat mir super geholfen.
ein Problem konnte ich jetzt feststellen. wenn ich (aktuell nur 2 Dateien) habe öffnet er mit "Exit for" nur 1 Datei ohne öffnet er beide Dateien aber es kommt ein Fehler weil er die dritte nicht findet.
eine Idee wie ich das lösen kann?

[ralf_b]

Nun, das hast du gut analysiert.  Es könnte oder wird wohl darauf hinauslaufen das du den Code an die realen Gegebenheiten anpassen mußt. 
Ich habe das Exit for gar nicht benutzt. Ist auskommentiert. 
Wenn du nicht weist wieviel Dateien du im Ordner hast, dann solltest du keine festen Zähler nehmen, sondern eine Variante mit Dir( ).