Excel: Permitir usuario modifique rango: AllowEditRanges

[Nuvato]

Buenas necesito hacer una macro la cual al proteger permite dejar modificar cierto rango de celdas...

ActiveSheet.Protection.AllowEditRanges.Add Title:="Rango1", Range:=Range( "A1:F1")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

pero ese rango "A1:F1" es variable, osea la proxima vez necesito que sea "A2:F2", y no he podido crear un macro para modificar ese rango "Rango1".

He intentado eliminar el anterior y crear uno nuevo en el mismo macro, pero no me lo elimina, lo adiciona como "Rango2".

Ojala me haya echo entender....