Private Sub Сырье()
    Dim iCount%, iResult#, i, j As Integer
   
    With ActiveWorkbook.Worksheets
          For iCount = 2 To .Count 'для каждого листа 
                For i = 4 To 10 'для каждой строки
                   If .Item(1).Cells(i, 1) = .Item(iCount).Cells(i, 1) Then 'если значение в i-ой строке 1-го столбца совпадает с значением в iCount листе 
                   iResult = iResult + .Item(iCount).Cells(i, 2) 'сложить найденные значения
                   .Item(1).Cells(i, 2) = iResult 'вывести результат на первый лист
                Next а здесь стопорится эта чудесная идея 
          Next
    End With
End Sub

Sub В_заявку()
Dim Priznak As Variant
i = 6 ' данные начинаются с 6-ой строки 
j = 6
Priznak = a ' крыж
Sheets("Заявка" ;) .Rows("10" ;) .Insert Shift:=xlDown ' начиная с 10-й строки вставляется пустая строка, куда добавляются данные
 For i = 6 To 251
 If Cells(i, 5) = Priznak ' с 6-ой по 251 строку идет поиск значения, если встречается крыж, то выполняется следующее действие:
 Then
 With Sheets("Заявка" ;) 
 .Cells(10, 2).FormulaR1C1 = "='Обучение'!Cells(i, 3)" а вот здесь начинаются проблемы...
 .Cells(10, 3).FormulaR1C1 = "='Обучение'!Cells(i, 4)"
 End With
 End If
 Next i
End Sub