Поиск и вставка значений в формулы - VBA/Excel

Формулировка задачи:

Здравствуйте уважаемые знатоки Excel. Помогите с макросом, суть которого описана в файле примера, так как описание громоздкое. Но если кратко: вставить формулы, найти значения и вставить их в формулы.

Решение задачи: «Поиск и вставка значений в формулы»

textual
                            Листинг программы 
                        

                            Sub La()
Dim i&
  i = Cells(Rows.Count, "A").End(xlUp).Row + 10
  Cells(i, 1).Resize(, 2).FormulaR1C1 = Array("общее", "=SUM(R4C:R[-1]C)")
  Cells(i + 2, 1).Resize(, 2).FormulaR1C1 = Array("Петров", "=SUMIF(R4C:R[-3]C,RC[-1],R4C[-1]:R[-3]C[-1])")
  Cells(i + 4, 1).Resize(, 2).FormulaR1C1 = Array("корректировка", "=R[-4]C-R[-2]C")
End Sub
                        