Copy and paste almost everything

[JorgenKjer]

Hi

I have a 5-sheet Workbook on Sheet 1 there is a table with a Header from "A6:K6"

In column D there is text with company departments.

I want to copy all Rows with all columns from the table to Sheet 2 inserted from Row"A7: K7" without Header

However, the Rows white company department "Management" in column D should not be paste to Sheet 2

Maybe the code can be made with filter, but is there another way?

Regards
Jorgen