کوچک کردن عدد

Dim i As Double

i = 0

For j = 1 To 100

    i = Cells(j, 1) / 1000000

    i = Round(i, 0)

    Sheet2.Cells(j, 1) = i

Next j