Selektierrahmen nach Copy

Mit diesem Makro kopiere ich die letzte nicht leere Zeile, springe eine weiter und füge wieder ein. Wie läßt man nach dem Einfügen den Selektierrahmen wieder verschwinden ?

danke

Sheets("Tabelle1").Select
Range("A3").Select
ActiveCell.CurrentRegion.Rows(ActiveCell.CurrentRegion.Rows.Count).Select
Selection.Copy
Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.Insert