Macros Excel

Sub EntradaSalida()
' Solicita el nombre de una persona usando una caja de entrada
' y lo despliega por una caja de mensajes
'
Nombre = InputBox("Su nombre por favor:")
MsgBox "Hola, "& Nombre
End Sub


Sub EntradaSalida2()
' Solicita el nombre de una persona y lo despliega
' en una caja de mensajes.
' En un segundo renglón, despliega la fecha y la hora del sistema
'Nombre = InputBox("Su nombre, por favor:")
MsgBox "Hola, " & Nombre & vbCrLf & "La fecha de hoy es " & Now()
End Sub----------------------------------------------------------------------*----------------------------------------------------------------------
MsgBox "Mi primer programa"



--------------------------------
Dim Numero1 As Integer
Dim Numero2 As IntegerNumero1 = InputBox("Entrar el primer valor", "Entrada de datos")
Numero2 = InputBox("Entrar el primer valor", "Entrada de datos")
ActiveSheet.Range("A1").Value = Numero1 + Numero2--------------------------------------

ActiveSheet.Range("A1").Value = 0
' Poner las casillas donde se guardan los valores 0.
ActiveSheet.Range("A2").Value = 0
ActiveSheet.Range("A3").Value = 0ActiveSheet.Range("A1").Value = Val(InputBox("Entrar el precio", "Entrar"))
' Si el valor de la casilla A1 es mayor que 1000, entonces, pedir descuento
If ActiveSheet.Range("A1").Value > 1000 ThenActiveSheet.Range("A2").Value = Val(InputBox("Entrar Descuento", "Entrar"))
End If
ActiveSheet.Range("A3").Value = ActiveSheet.Range("A1").Value - _
ActiveSheet.Range("A2").Value

-------------------------Dim Precio As Integer
Dim Descuento As Integer
Precio = 0
Descuento = 0
Precio = Val(InputBox("Entrar el precio", "Entrar"))
' Si el valor de la variable precio es mayor que 1000, entonces,pedir descuento
If Precio > 1000 Then
Descuento = Val(InputBox("Entrar Descuento", "Entrar"))
End If

ActiveSheet.Range("A1").Value = Precio
ActiveSheet.Range("A2").Value = Descuento...