Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then
Target.Value = Target.Value / 6.1279
End If
Application.EnableEvents = True
End Sub