Error 1004 en tiempo de ejecución

buenos días, tengo este código que lo que quiere es copiar y pegar un rango de celdas variables, dentro de la misma hoja, es decir, desplazar a la derecha una serie de datos

For H = 8 To 20 Step 3
'.Sheets("FORMULARIO").Range(Cells(<span style="white-space: nowrap;">1</span>, H - 2), Cells(1000, H )).Copy
'.Sheets("FORMULARIO").Range(Cells(1, H + 1), Cells(1000, H + 3)).PasteSpecial (xlPasteValues)
'.Sheets("FORMULARIO").Range(Cells(1, H - 2), Cells(1000, H-2 )) = ""
End If
'Application.CutCopyMode = False
Next H

pero me aparece el error 1004 y no le encuentro solución.

Muchas Gracias