Private Sub Worksheet_Change(ByVal Target As Range)
Const Coeff = 12
Dim xcell As Range
Application.ScreenUpdating = False: Application.EnableEvents = False
On Error GoTo Suite
For Each xcell In Intersect(Target, Range("r6:y" & Rows.Count)).Cells
If IsNumeric(xcell) And xcell <> "" Then xcell = 12 * xcell
Next xcell
Suite:
Application.EnableEvents = True
End Sub