Hallo,
mein Macro funktioniert so schon ganz gut,
aber in den Leerzeilen brauche ich noch folgendes:

Spalte D von unten nach der letzten belegten Zelle überprüfen und deren Inhalt
kopieren


Range (“D22“). Select
Selection.Copy
Windows(“Monatsbi.xls”).Activate
ActiveSheet.Paste
Selection.Offset(0,1).Select
Windows(“leer Rechnung.xls”).Activate


Windows(“Monatsbi.xls”).Activate
ActiveSheet.Paste
Selection.Offset(0,1).Select
Windows(“leer Rechnung.xls”).Activate
Range (“I22“). Select
Selection.Copy
Windows(“Monatsbi.xls”).Activate
Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:=_
False, Transpose:=False
Selection.Offset(0,-2).Select
End Sub