Erreur définie par l'application ou par l'objet

Bonjour,

J'ai ce message d'erreur qui est apparu alors qu'auparavant la formule marchait.
J'aimerais savoir également comment on fait pour tirer la formule jusqu'à la dernière cellule de la colonne Z en disant "tire la formule si la cellule de la colonne d'à côté contient des données (colonne Y).

La voici:

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="D:\Documents\GC.xlsm"
Windows("GC.xlsm").Activate
ActiveCell.Offset(-11, 18).Range("A1").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "Numéro de colis 2"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],LEN(RC[-1])-1)"

N'hésitez pas à me dire s'il y a des erreurs car je suis ultra débutante en VBA.

Merci beaucoup