How to Avoid "Select" to optimize the following code

Asked Mar 01 '21 at 22:37

Active Mar 02 '21 at 10:42

Viewed 21 times

How would you optimize the following code :

Sheet.Activate
Sheet.Cells(i,j).EntireRow.Select
selection.Copy
selection.Offset(1).Insert

I am particularly bogged with the last line Thanks

edited Mar 02 '21 at 10:42

RetiredGeek

asked Mar 01 '21 at 22:37

Jean Robitaille

`Worksheets("Sheet1").Rows(i).Copy Destination:=Worksheets("Sheet1").Rows(i + 1)` Obligatory link: [How to avoid using Select in Excel VBA](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba) – Darren Bartrup-Cook Mar 02 '21 at 11:15
Bravo and Merci ! – Jean Robitaille Mar 02 '21 at 21:16

0 Answers0