Error al pegar fórmulas en VBA

[Hector94]

Hola, estoy realizando un Excel que te calcula la ruta que debe seguir una furgoneta para recoger ciertos usuarios dependiendo de las distancias numero de usuarios por ciudad etc,
La cosa es que al final quiero copiar y pegar una fórmula en la última casilla de la lista y no sé porque me da error. éste es el código:

Código: Seleccionar todo

Sub añadirgandia()
numvehículos = Cells(3, "I")
col = 0
For i = 1 To numvehículos
    If Cells(1, 13 + col) <> "" Then
        Cells(2, 13 + col) = "Gandía"
        Cells(2, 14 + col) = 0
        Cells(2, 15 + col) = 0
        Cells(2, 16 + col) = 0
        ultimaciudad = Cells(1, 13 + col).End(xlDown)
        Cells(1, 13 + col).End(xlDown).Offset(1, 0) = "Gandía"
        Range("K2").Copy
        Cells(1, 13 + col).End(xlDown).Offset(0, 1).Select
        [b]Range(Selection).PasteSpecial xlPasteFormulas[/b]
        Cells(3, "K").Copy
        For j = 1 To (Cells(1, 13 + col).End(xlDown).Offset(0, -1) - 1)
            Range(Cells(2 + j, 15 + col)).Paste
        Next j
    End If
col = col + 4
Next i
End Sub

(utilizo el offset(0,1) porque la columna en la que quiero pegar tiene huecos en blanco por arriba)

La fila en negrita es la que me da error: Error en el método 'Range' de objeto '_Global'
Alguien tiene idea de porque?
Manualmente me la copia y funciona bien.

Muchas gracias.

[Antoni]

Cambia Range(Selection).PasteSpecial xlPasteFormulas por Selection.PasteSpecial xlPasteFormulas

[Cacho R]

.
Sin ver tu archivo, Héctor, va a ser difícil orientarte pues hay que adivinar demasiadas cosas...
.