VBA Apply Formula para todas las celdas que no funcionan

Necesito aplicar la fórmula a todas las celdas en Sheet2 y obtengo el error "Method'Range 'of object'_Global' failed".

Aquí está el código de VBA que estoy usando:

Range("D2:AJ" & LastRow).Formula = "=OFFSET(Sheet1!$D$2,(ROW(1:1)-1)+INT((ROW(1:1)-1)/2)*8,COLUMN(A:A)-1)" 

La fórmula copy cada 2 filas de Sheet1 y omite 8 filas y está funcionando cuando la ingreso manualmente.

¿Podrías por favor decirme qué estoy haciendo mal?

¡Muchas gracias!

Podría intentar configurar la fórmula en la primera celda, y luego copyr y pegar en el rest según esta respuesta aquí: establecer la fórmula en un range de celdas