Pido de su ayuda nuevamente.

quiero crear mi complemento para hacer un reporte. pero al correr el siguiente codigo en el modulo del libro donde voy a hacer el reporte no hay problema, pero al correrlo como complemento me sale un error  y me selecciona la fila donde quiero agrgar una fila ayudenme por favor me la pase toda la noche y no encontre el problema

Hoja1.Select
ActiveSheet.Name = "MRP01"
ActiveSheet.Next.Select
ActiveSheet.Name = "MRP02"
'
Hoja1.Select

    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Columns("A:B").Select
    Selection.Insert Shift:=xlToRight
   
    Range("A1") = "Localidad"
    Range("B1") = "Company"
    Range("C1") = "Supplier"
    Range("D1") = "Item"
    Range("E1") = "Descrip"
    Range("F1") = "Planner Code"
    Range("G1") = "Type"
  

saludos.