Thanks for your query and sample code segment.
Well, you do not need the following line of code any more now:
as you already created data validation based on “cellArea”:
Dim validation As Validation = validations(validations.Add(cellArea))
All you need to do is create the CellArea to be specified when adding data validation.