Sub byt()

Dim a(1 To 5) As Single

Dim i As Integer
Dim sum(1 To 5) As Single

For i = 1 To 5
sum(i) = 0
a(i) = Cells(i, 1)
a(i) = a(i) / 1000
sum(i) = a(i)
Cells(i, 2) = sum(i)
Next i
End Sub