Estoy trabajando con vba para el tratamiento de datos dentro de excel, tengo unos informes, cada unos en su hoja, en los que necesito rellenar las celdas que están en blanco con el valor de la celda que tienen por encima de ellas.

El problema es que al acabar la primera hoja, me da un error 1004, y me gustaría que pasara de ese error, y siguiera con la siguiente hoja. El código que tengo es el siguiente:

    Function structure_sheets()
    With ThisWorkbook
        For Each Sheet In .Sheets
            If (InStrRev(Sheet.Name, "Node") > 0) Then
                LastRow = Sheet.UsedRange.Rows.Count
                With Range("A8:F" & Range("F" & LastRow).End(xlDown).Row)
                    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
                    .Value = .Value
                End With
            End If
        Next
    End With
End Function

Y el error:

[![introducir la descripción de la imagen aquí][1]][1]


  [1]: https://i.sstatic.net/fVasC.png

Los OnError parece que no funcionan con estos bloques de código.

Si alguien tiene idea, se aceptan sugerencias.

Muchas gracias.