Excel Macro - Copy Paste visicle cells

Coisas que acontecem no trabalho....
Precisava de uma macro que copia-se apenas as células visíveis, e as volta-se a colar na mesma ordem em  células apenas visíveis....
depois de uma longa pesquisa na net encontrei uma macro que fazia qq coisa parecido...
com uns ajustes aqui e ali lá fiz a macro...
agora é só seleccionar as células que se quer copiar e activar a macro.... depois é sé escolher a área que se quer colar e voilá...

deixo o código da macro:

Sub Copiar_Celulas_Visiveis()
 Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
Set from = Selection
Set too = Application.InputBox("Selecione o intervalo de células de destino", Type:=8)
For Each Cell In from
Cell.Copy
For Each thing In too
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Set too = thing.Offset(1).Resize(too.Rows.Count)
Exit For
End If
Next
Next
End Sub