Mariano Quiroga

Luis Mondelo respondió: Te mando un ejemplo de macro para conseguir tu objetivo Sub sumarango() 'por luismondelo rango = "d5:d" & Range("d65000").End(xlUp).Row suma = Application.WorksheetFunction.Sum(Range(rango)) MsgBox "La suma es de: " & suma End Sub no olvides...