Tengo un error

Hola Expertos les pido de la manera más atenta su ayuda con lo siguiente:
Tengo una plantilla en excel y por medio de una macro hago ciertos movimientos a la plantilla, pero al querer porteger contra escritura la celdas A1 a la A3 me marca el siguiente error: 1004 en tiempo de ejecución. No se puede ejecutar ese comando en una hoja protegida. Y en donde me marca este error es en la linea siguiente:
rango = Cells(4, 1).CurrentRegion.Columns(1).Address
Agradeciendo de antemano su amable antencion y apoyo quedo de ustedes.
Saludos.