Macro especifica que copia las celdas que tienen valores,y pega celdas vacias tambien

[fernandotipo]

hola tengo un macro y el problema que encuentro es que agregue una condicion a las celdas de la "fila A" "hoja2"

CÓDIGO: SELECCIONAR TODO

=SI(B8="";"";SUMA(B8*D8))[/CODE]

que se repite en todas las filas ahora lo que pasa que el ejecutar el macro copia las celdas vacias,aunque en el macro especifica que copia las celdas que tienen valores

si pongo

[CODE]CÓDIGO: SELECCIONAR TODO
=SI(B8="";"";SUMA(B8*D8))[/CODE]

si lo saco me lo hace bien me pega las celdas que tiene datos nada mas

Macro

[CODE]Dim UltFila, Cant As Long
UltFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1
Cant = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
Hoja2.Range("A8:E" & Cant).Copy
Cant = Hoja2.Range("A8:E" & Cant).Rows.Count
Hoja1.Select
Range("D" & UltFila).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A" & UltFila & ":A" & UltFila + Cant - 1).Value = Range("Fecha")
Range("B" & UltFila & ":B" & UltFila + Cant - 1).Value = Range("Remito")
Range("C" & UltFila & ":C" & UltFila + Cant - 1).Value = Range("Nombre")[/CODE]

libro2.zip