Private Sub Worksheet_Change(ByVal T As Range)
Application.ScreenUpdating = False
If IsEmpty(Cells(T.Row, 1)) Then Exit Sub
If Not Intersect(T, Range(Cells(T.Row, "B"), Cells(T.Row, "E"))) Is Nothing Then
Application.EnableEvents = False
T.Value = T.Value * Cells(T.Row, 1).Value
Application.EnableEvents = True
End If
End Sub