letzte beschriebene Zeile kopieren
wowanick
Anzeige
Sub Salve()
MsgBox "Hallo Nicki!"
With Cells(Rows.Count, 1).End(xlUp).EntireRow
.Copy
.Offset(1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
.Cells(1, 1).Activate
End With
MsgBox "Frohe Ostern!"
End Sub