Ich habe folgenden Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Activate
Sheets("VegIrr.prog").Select
letzte_Zeile = Cells(Rows.Count, 2).End(xlUp).Row
If letzte_Zeile >= 25 Then
Rows(letzte_Zeile).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Nun möchte ich gerne nicht nur die letzte Zeile kopieren und als Werte wieder einfügen, sondern den ganzen Bereich oberhalb der letzten Zelle bis Zeile 26.
Kann mir da jemand helfen?
Vielen Dank,
roger