Ver originalSub Sumar_A_B() If [a1] = Empty Then Exit Sub [c1].Formula = "= a1+b1" Range([a1], Cells(Rows.Count, "a").End(xlUp)).Offset(, 2).FillDown End Sub