Efficientere code voor het knippen en plakken van een rij

[jackfish]

Ik heb een code die een rij uit het active blad copieert, onder de laatst gevulde rij plakt en de inhoud ervan wist. Het lukt mij niet om het efficienter te krijgen. Wie kan dat wel?

Sub Invoegen()
ActiveCell.EntireRow.Copy ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(0, -1).Select
ActiveCell.EntireRow.ClearContents
End Sub

Gr jackfish

 

[huijb]

Lijkt op deze http://www.helpmij.nl/forum/showthread.php/748918-Excel-VBA-Universele-command-button