How to copy and pastespecial only visible cells with VBA?

[perola.rike]

I'm simply trying to copy a named area from one sheet to another. But, Sheets("profil_diy").Range("diy_profil_area") is an area with some hidden rows. I want the code below to copy only the visible cells, which it doesn't...It copy also the hidden rows.
Sheets("profil_manuell").Range("profil_manuell_area") is a named cell, B2 on the "profil_manuell" sheet.

How to modify code to onlye copy visible cells?

I've searched a lot of forums, modifying the code, but with no luck.


Code:
Sheets("profil_diy").Range("diy_profil_area").Copy
With Sheets("profil_manuell").Range("profil_manuell_area")
.PasteSpecial (xlPasteAllUsingSourceTheme)
.PasteSpecial (xlPasteValuesAndNumberFormats)
.PasteSpecial (xlPasteColumnWidths)
End With

 

[Sixthsense]

Replace this line

Sheets("profil_diy").Range("diy_profil_area").Copy

With

Sheets("profil_diy").Range("diy_profil_area")[B][COLOR=#ff0000].SpecialCells(xlCellTypeVisible)[/COLOR][/B].Copy

 

[perola.rike]

Thank you for answering. I've inserted your code-line. I believe I've tried that "specialcells" code before with no luck.
The following error occured: The textstrings included in the cells in the named range that are copied are not pasted in the new sheet. The values are not pasted. All formatting except for these texts/values is copied. Why?

 

[perola.rike]

I found another way around the problem. In a separate column I used Filter to hide unused rows, not "hide rows" vba procedure. It seems like my original code copy only the visible cells when using filter, which is what I needed. With the other method, "hide unused", the hidden rows were still being copied with my old code. So, using filter solved my problem.