Сразу задание не понял (думал надо копировать из другого места), если копировать и вставлять нужно в одно место, то можно использовать такой макрос.
Перед запуском макроса выделите нужный фрагмент (копировать не надо, просто надо выделить), а затем запустите макрос.
[vba]Код
Sub Макрос1()
Dim rngVisible As Range, rngArea As Range
Application.ScreenUpdating = False
Set rngVisible = Selection.SpecialCells(xlCellTypeVisible)
For Each rngArea In rngVisible.Areas
rngArea.Value = rngArea.Value
Next
Application.ScreenUpdating = True
End Sub
[/vba]