It is alas impossible to end up with zero when dividing a number by other numbers.
You can get very close to 0, but it will take an infinity of divisors to get to 0.
OTH if you want to end up with 1, I suggest you search the Net for " factoring numbers", or " splitting a number in prime factors". VBA will be needed anyway

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post