Copiar rango con celdas combinadas

Hola Buenos días. Estoy haciendo un programa donde los datos de factura me los
pase a una hoja (Facturas Emitidas). Los datos que quiero que copie son :
Código Artículo, Albarán, Descripción, Cantidad, Precio y Total. Por motivos
estéticos en el campo “Descripción” hay varias columnas combinadas y a la hora
de pasar los datos de la hoja “Factura” a la hoja “Facturas Emitidas” Excel entiende
que tiene que copiar desde Código Artículo hasta la primera columna de Descripción
y ya no me copia ni Cantidad, ni Precio ni Total.
Debajo te incluyo la sintaxis que he empleado para que me indiques cómo lo
puedo resolver.
Saludos cordiales y muchísimas gracias por la ayuda.


Range("C14").Select
If
Range("C15") <> "" Then
Range(Selection,
Selection.End(xlDown)).Select
Range(Selection,
Selection.End(xlToRight)).Select
Else
Range(Selection,
Selection.End(xlToRight)).Select
End If
Selection.Copy
' los llevamos a Facturas Emitidas
Sheets("Facturas
Emitidas").Select
' buscamos la 1ª celda vacía del artículo
Cells(1,5).Select
Do
While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1,0).Select
Loop


'pegamos los datos
ActiveCell.PasteSpecial
xlPasteValuesAndNumberFormats
Application.CutCopyMode= False

0

Añade tu respuesta

Haz clic para o