Excel - ¿Que hace esta macro?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rango As Range

    ' Aquí colocar el Rango que vas a editar

    Set Rango = Range("F2:F10")

    If Not Intersect(Target, Rango) Is Nothing Then

        Application.EnableEvents = False

            Range("G" & Target.Row) = Range("F" & Target.Row) + Range("G" & Target.Row)

        Application.EnableEvents = True

    End If

    ' Liberar Recursos

    Set Rango = Nothing

End Sub