Ejercicio 9: Macro para sumar una columna en Excel

Ejercicio 9: Macro para sumar una columna en Excel

Escribe una macro que calcule la suma de los valores en la columna B y muestre el resultado en una celda específica.

1. Iniciar macro
2. Definir rango de celdas en columna B
3. Calcular suma de valores del rango
4. Mostrar resultado en celda D1
5. Terminar macro

Sub SumarColumnaB()
  Dim suma As Double
  Dim rng As Range

  ' Definir rango desde B2 hasta última celda con datos
  Set rng = Range("B2", Range("B" & Rows.Count).End(xlUp))

  ' Calcular suma
  suma = Application.WorksheetFunction.Sum(rng)

  ' Mostrar resultado en D1
  Range("D1").Value = suma
End Sub