Excel - simplificar formula

Sub SALIDA_NEW()

  Range("G2").Select

  EntradaProducto = ActiveCell

  Range("F2").Select

  ActiveCell = Val(ActiveCell) + Val(EntradaProducto)

  Range("G3").Select

  EntradaProducto = ActiveCell

  Range("F3").Select

  ActiveCell = Val(ActiveCell) + Val(EntradaProducto)

End Sub

Range("F2") = Range("F2") +  Range("G2")

Range("F3") = Range("F3") + Range("G3")