VBA Request

[ElPerson]

hi
would you please give me a VBA for the following function

i want it to watch the column B and when i enter a value in B it multiply it by 20 and add the value to C same raw

also monitor D and the same update value to E then F and add to G

Thank you

 

[theBardd]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo wsc_exit
    
    Application.EnableEvents = False
    
    If Not Intersect(Target, Me.Range("B:B, D:D, F:F")) Is Nothing Then
    
        If IsNumeric(Target.Value) Then
        
            Target.Offset(0, 1).Value = Target.Value * 20
        End If
    End If
wsc_exit:
    Application.EnableEvents = True
End Sub

this goes in the worksheet code module