Copy row(s) and insert certain cells (always from same columns) into new row(s) in wo

[Zongordon]

The title should be: "Copy row(s) and insert certain cells (always from same columns) into new row(s) in worksheet "

Hi,
I have searched but not fond a solution for my problem, so I need assistance with a copy/paste/insert operation!
We have a shared workbook with a sheet consisting of 6000+ rows of data (and incresing) where the users need to be able to copy and paste multiple rows as well as insert empty rows. That works fine today, but with too much data is copied to the new rows. The sheet is filtered most of the time during these operations.

The users select whatever desired rows to copy and click on the desired button.
We use Excel 2010 for the workbook.

The existing code (simpliest possible):

Private Sub copy_row_Click()
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveCell.Select
End Sub

The columns we need data from is B, C, D and E and the rest may be empty!
An extract of the sheet is attached!