need help on vba code error Run-time err 6 Overflow

Dear expert

I need help on vba code getting error for huge data's

i have set of macro to split the column values as new workbook along with existing dashboard.. i getting Run -Time error "6" Overflow

while i run code with more than 33,000 Lines column data i getting error at the same time if i tried with 2200 column line item data i would nt have faced any error, works perfectly i dont know where i could be wrong

please find the attachment with code in the workbook

Thanks Millz Perfect changes works pefectly...solved