Try adding these lines:
Range("I2:I" & bottomA).Select
Selection.NumberFormat = "0.00000
"
below this line:
Next rng1