I end up hard coding it like this
Sub Reset_size()
Dim Cell As Range
Set Cell = Cells(16, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(17, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(18, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(19, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(20, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(21, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(22, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(24, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(25, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(29, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(31, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(33, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(39, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(40, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(41, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(42, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(43, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(44, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(45, 6)
Cell.Value = Range(Split(Mid(Cell.Validation.Formula1, 2), ";")(0)).Value
Set Cell = Cells(46, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(47, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(48, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(49, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(51, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(52, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(53, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(54, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(55, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(56, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(57, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(58, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(59, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(60, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(61, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(62, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(64, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(65, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(66, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(71, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(72, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(73, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(77, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
Set Cell = Cells(78, 6)
Cell.Value = Split(Cell.Validation.Formula1, ";")(0)
End Sub
with
Reset Data Validation Lists to first item, method range has failed
for reference