ich habe dieses Script:
Sub Makro1()
ActiveCell.Select
Selection.EntireRow.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
ActiveCell.EntireRow.PasteSpecial
End Sub
und möchte das die letzte eingefügte Zeile komplet markieren wird.
Wie geht das?
Viele Grüße Sören