Problemas con celdas vacias

[polig]

Hola Cacho! Muchas gracia spor tu sugerencia.
Estuve revisando nuevamente el proceso, pero no logro que la macro me copie unicamente las celdas con datos. En la macro inicial copio toda la hoja parapegarla tal cual; asi aseguro que todos los datos, independientemente del numero de filas, queden copiados. Ahora intente con la siguiente macro:

Range("A1:V1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A5").Select
End Sub

Cuando lo hago manualmente, la doble Selection.End down copia exactamente lo que necesito, pero al ejecutar esa marcro solo logro copiar los encabezados; las celdas filtradas no quedan! Por esta razon fue que decidi escribir la macro con copiar toda la hoja, con el problema resultante del tamanno del archivo.
Como hacer entonces para que una marcro me copie solo las celdas que tienen datos sin tener que copiar toda la hoja? El numero de filas con datos es siempre diferente... lo unico constante son los encabezados, que van de la fila 1 a la 7.