array con intervalo discontinuo

[eposse]

Hola a Todos:

Por favor me podeis ayudar en lo siguiente:
Tengo una macro con un bucle para que me copie los valores de las columnas de otro fichero.

Cuando lo hago para un intervalo continuo me funciona perfectamente el array ( por ejemplo desde 1 hasta 5, es decir, desde la columna 1 hasta la 5) pero cuando le pongo que la siguiente a la cinco no sea la seis, sino la 7 no lo reconoce. ¿ Por qué puede ser?

Sub macrito()


Dim myarray As Variant
myarray = Array(1, 2, 3, 4, 5, 7)


Dim j As Long

For j = 1 To UBound(myarray)

Cells(2, j).FormulaR1C1 = "=IF([novale.xls]LISTADO!RC" & j & "="""","""",[novale.xls]LISTADO!RC" & j & ")"


Next j