You need to make a worksheet Change macro that when you enter data in certain
cells it will automatically will do the division. Usually you only want this
done in certain columns or certain rows and not the entire worksheet
Sub worksheet_change(ByVal target As Range)
If target.Column = 6 Then
Application.EnableEvents = False
target.Value = target.Value / 6
Application.EnableEvents = True
End If