Como llenar "Worksheet_Change" desde un modulo

Necesito grabar el siguiente código desde el modulo2 al worksheet de la hoja Datos,

Set KeyCells = Range("??")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    Hoja?.Name = [??]

Es una aplicación donde si es necesario genero una hoja nueva con las mismas cosas que la hoja base pero con los datos de su columna y debo poner el nombre de la celda y de la hoja nueva en este código por si tengo que cambiar el nombre en algún momento, no se como cargar el Excel para que lo podáis ver.