rng.SpecialCells(xlCellTypeVisible).Copy
With NewWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteAll
.Cells(1).Select
Application.CutCopyMode = False
End With
na místo rng.copy bych použil rng.SpecialCells(xlCellTypeVisible).Copy
a pro vložení
.PasteSpecial xlPasteAllcitovat