run time error 1004 Pastespecial method of range class failed

[SamT]

:
Try

dsh.Cells.SpecialCells(xlCellTypeVisible).Copy
sh.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats