Move excel to Google Sheets (with macros)

If Not Application.Intersect(Target, Me.Range("Tabla[Entrada]:Tabla[Salida]")) Is Nothing Then
Application.EnableEvents = False
If Me.Cells(Target.Row, [Tabla[Moneda]].Column).Value <> "X" Then
If IsNumeric(Target.Value) Then
If Target.Value > 1 Then Target.Value = Target.Value / 100000000
End If
End If
Application.EnableEvents = True
End If

If IsEmpty(Range("B3")) = False Then
Else
Range("B3").Value = Format(Now(), "mm/dd/yy")