Grazie Mabi.
Ho risolto con:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B400")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target = Round(Target.Value, 2)
End If
Application.EnableEvents = True
End Sub