No copiar valores 0 o error en una macro para copiar y pegar valores

Hola a tod@s,

Tengo la siguiente macro que busca valores y los copia y pega en función del valor introducido en una celda:

Sub Energía()
'Por.Antonio Joaquín García Verdú
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
    Set h1 = Sheets("Energía")
    Set h2 = Sheets("Graf.Ener.")
    u = h2.Range("A" & Rows.Count).End(xlUp).Row
    If u < 7 Then u = 7
    h2.Range("A7:G" & u).ClearContents
    j = 7
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        If h1.Cells(i, "A") >= h2.Range("A1") Then
            h1.Range("A" & i & ":A" & i).Copy
            h2.Range("A" & j & ":A" & j).PasteSpecial Paste:=xlValues
            h1.Range("E" & i & ":J" & i).Copy
            h2.Range("B" & j & ":G" & j).PasteSpecial Paste:=xlValues
            j = j + 1
        End If
    Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub

La macro funciona correctamente, pero mi problema es que los datos que se copian y pegan han sido calculados previamente con fórmulas, así que aunque esos datos no se vean cuando se ejecuta la macro, me los gráfica como valor 0 al realizar la gráfica.

se puede solucionar esto añadiendo alguna función a la macro?.

Muchas gracias de antemano y saludos