Error definido por la aplicación del objeto

Hola!
Tengo la siguiente macro para un formulario y me salel el siguiente error " Error definido por la aplicación del objeto" y ya le hice cambios pero sigue igual.En la linea marcada en negrita es donde me marca el error.
Alguien me puede decir que estoy haciendo mal por favor.
Private Sub Adicionar_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Me.CODIGO.Value
Sheets("Plantilla").Cells.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 90
ActiveCell.Offset(0, 4).Value = Me.CODIGO.Value
ActiveCell.Offset(1, 4).Value = Me.DESCRIPCION.Value
ActiveCell.Offset(2, 4).Value = Me.Unmed.Value
ActiveCell.Offset(3, 4).Value = Me.Familia.Value
Sheets("Catalogo Producto").Activate
Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Me.CODIGO
    ActiveCell.Offset(0, 1).Value = Me.DESCRIPCION
    ActiveCell.Offset(0, 2).Value = Me.Unmed
    ActiveCell.Offset(0, 3).Value = Me.Familia
Unload AltaMats
Application.ScreenUpdating = True
End Sub
Gracia por su apoyo.
Saludos