Problema al pegar en macro de Excel en VB

[pepebook]

Estoy intentando crear una macro para excel que selecciona unas filas de las hojas múltiples de tres y tiene que pegarlas en valores en una hoja aparte.
Me está dando problemas a la hora de pegar (la última parte de la macro).

Concretamente me sale el error:
"Se ha producido el error 1004 en tiempo de ejecución: Fallo en el método PasteSpecial de la clase Range."

Os dejo el código para que le echéis un ojo si podéis.

Código:

Sub Encuentra_devueltos()

n_meses = (Sheets.Count - 1) / 3

For j = 1 To n_meses
ind_hoja = j * 3
Sheets(ind_hoja).Select


For i = 1 To 1500
    Sheets(ind_hoja).Select
    nombre = Range("J1").Offset(i, 0).Value

    If nombre = Vacio Then

    Else
        fila_devolver = Range("A1:Q1").Offset(i, 0).Select
        Application.CutCopyMode = False
        Selection.Copy

       
        Sheets("Impagados").Select
        Calculate
        n_impagados = Range("S1").Value

        Range("A1:Q1").Offset(n_impagados, 0).Select
        
         'Application.CutCopyMode = False
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        
    End If

Next
Next
End Sub

El error me da en la linea:

Código:

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Tengo un nivel medio-bajo. Gracias por vuestra colaboración.