Versuche, zwei Bereiche mit gleicher Breite, aber unterschiedlicher Länge, jeweils auf unterschiedlichen Blättern, in einen anderen Bereich einzulesen, in dem ich die kombinierten Daten in einer bestimmten Reihenfolge durchlaufen muss.

Set wRIL = Worksheets("INS")
Set rRIL = wRIL.Range("L2")
Set rRIL = rRIL.CurrentRegion
Set rRIL = rRIL.Offset(1, 0).Resize(rRIL.Rows.Count - 1, rRIL.Columns.Count)

Set wROL = Worksheets("OUTS")
Set rROL = wROL.Range("N2")
Set rROL = rROL.CurrentRegion
Set rROL = rROL.Offset(1, 0).Resize(rROL.Rows.Count - 1, rROL.Columns.Count)

Set rRILROL = Union(rRIL, rROL)  

Hoffnung auf einen Größenbereich von rROL.Rows.Count + rRIL.Rows.Count long und rROL.Columns.Count wide. Dieser Code stoppt beim Befehl Union.