Let's see if the problem can be reproduced on a subset of the data that you can then post here. Try making a smaller version of the data with just the columns Add and Add_1, that is, the "bad" column and one "good" column. The command would be
DataNew <- Data[,c("Add", "Add_1")]
then check if the error still occurs. Then trim the number of rows like this
DataNew <- DataNew[1:20,]
and again check if the error still happens. If it does, please run
dput(DataNew)
and post the results here. If the error disappears, let us know at what step that happens.
There is nothing special about the number of columns and rows I picked to keep. If posting a somewhat larger data set, produced by dput(), is a better idea, do that.