copiar solo las celdas que no estén vacias

Skip Blanks a mi nunca me ha funcionado, incluso abriendo un archivo
nuevo crea una tabla con celdas vacias, selecciona el rango copia y
selecciona pegado especial con skip blanks activo y no funciona, pega
todo con todo y las celdas vacias..

Si alguien sabe porque, podría explicar?

Gracias.

hola Jorge,

Skip Blanks a mi nunca me ha funcionado, ... Si alguien sabe porque, podría explicar? <<<

la verdad es que no sabria decirte, pero, aunque un poco tardio, y ya
que has resucitado el hilo, esta podria ser una forma de resolver el
problema de Paquito (esta hecho para una sola fila, como el pedia)

'en un modulo normal
Sub CopiarNoVacias()
With ActiveCell.EntireRow
.SpecialCells(xlCellTypeBlanks) _
.EntireColumn.Hidden = True
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Hoja2").Range("a65536") _
.End(xlUp).Offset(1)
.SpecialCells(xlCellTypeBlanks) _
.EntireColumn.Hidden = False
End With
End Sub

OJO=> lo pega en la primera celda vacia de la columna A de una hoja
llamada "Hoja2" (se puede cambiar aqui =>
Worksheets("Hoja2").Range)

lo dicho, solo por poner una [posible] solucion al hilo. En cuanto a
tu duda espero te la solucionen

un saludo
Ivan