Error en macro al correr en diferentes versiones de excel

[Persal95]

Hola

Soy nuevo en el foro, se me presenta una situación al compartir un archivo en excel que tiene una macro para almacenar los datos de un formulario en una base de datos.

La macro lo que hace es que toma copia los datos de un rango de datos en la hoja del formulario y los pega en la Hoja Data en el inicio de la tabla, haciendo un insertar hacia abajo y desplanzando las filas que se puedan encontrar abajo.

El punto es que la macro me corre a la perfección en mi computadora y en otras, pero en algunas versiones de excel me arroja el problema de automatización o me puede dar el error de "Error en el metodo copy de la clase range" 

Muchas gracias por su ayuda!

 

Sub SavePesos()

 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 
Dim Hoja1, Hoja2 As Worksheet

Set Hoja1 = ThisWorkbook.Sheets("Data")
Set Hoja2 = ThisWorkbook.Sheets("Pesos")

Sheets("Pesos").Activate
Range("Z2:AL12").Select
Selection.Copy
Sheets("Data").Activate
Range("B2").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Hoja2.Select
Range("D9:D21").Select
Selection.ClearContents
Range("D4").Select

 Application.DisplayAlerts = True
End Sub

Adjunto el codigo del error

HbI forms part2 - Copy.xlsm