VBA Macros Práctica 2

Sub ventas()
' saludo Macro ' Mi primera macro
' Autor: Patricia Acosta
' Acceso directo: CTRL+s
Range("A1").Select
 ActiveCell.FormulaR1C1 = "Mes"
Range("B1").Select
 ActiveCell.FormulaR1C1 = "Producto"
 Range("C1").Select
  ActiveCell.FormulaR1C1 = "Ventas"
 Range("A2").Select
  ActiveCell.FormulaR1C1 = "enero"
 Range("B2").Select
  ActiveCell.FormulaR1C1 = "Zapatos"
 Range("C2").Select
  ActiveCell.FormulaR1C1 = "20000"

 Range("A3").Select
  ActiveCell.FormulaR1C1 = "febrero"
 Range("B3").Select
  ActiveCell.FormulaR1C1 = "Tenis"
 Range("C3").Select
  ActiveCell.FormulaR1C1 = "25000"

 Range("A4").Select
  ActiveCell.FormulaR1C1 = "marzo"
 Range("B4").Select
  ActiveCell.FormulaR1C1 = "Carteras"
 Range("C4").Select
  ActiveCell.FormulaR1C1 = "30000"

 Range("A5").Select
  ActiveCell.FormulaR1C1 = "abril"
 Range("B5").Select
  ActiveCell.FormulaR1C1 = "Cinturones"
 Range("C5").Select
  ActiveCell.FormulaR1C1 = "32000"

 Range("A6").Select
  ActiveCell.FormulaR1C1 = "mayo"
 Range("B6").Select
  ActiveCell.FormulaR1C1 = "Zapatillas"
 Range("C6").Select
  ActiveCell.FormulaR1C1 = "35000"

 Range("A7").Select
  ActiveCell.FormulaR1C1 = "junio"
 Range("B7").Select
  ActiveCell.FormulaR1C1 = "Monederos"
 Range("C7").Select
  ActiveCell.FormulaR1C1 = "35000"

 End Sub