Macro - Colar somente em células visíveis

[Luciana Goes]

Pessoal, preciso copiar dados de uma planilha qualquer onde todas as células estão visíveis. Esses dados preciso colar numa outra planilha que contem células ocultas.

Gostaria de colar estes dados ignorando as células ocultas.

Encontrei uma macro que faz isso, mas ao copiar, copia como imagem e preciso que faça a colagem padrão do excel.

A macro que encontrei foi essa:

Sub copiacola()
'se erro, não faz nada
'On Error GoTo fim

'cola o conteúdo na célula ativa
ActiveCell.PasteSpecial

'dimensiona variáveis
Dim lin1, lin2, col As Integer
lin1 = ActiveCell.Row
lin2 = ActiveCell.End(xlDown).Row
col = ActiveCell.Column

For i = lin1 To 500
If Cells(i, col).EntireRow.Hidden = True Then
    Range(Cells(i, col), Cells(lin2, col)).Cut _
            Cells(i + 1, col)
    lin2 = lin2 + 1
End If
Next

'fim:
'Exit Sub

Application.CutCopyMode = False
End Sub

Alguém poderia me ajudar, por favor?