Sub dblMitKomma()
ActiveSheet.UsedRange.Offset(0, 1).Clear
Dim cel As Range
Dim rng As Range: Set rng = Range("A1:A6")
For Each cel In rng.Cells
With cel
.Offset(0, 1) = Round(CDbl(cel.Value), 3)
.Offset(0, 2) = CDbl(cel.Value)
.Offset(0, 1).NumberFormat = "0.000"
.Offset(0, 2).NumberFormat = "0.000"
End With
Next cel
End Sub