Sub Test()
    Dim q, w, e As Long

    Общее = Worksheets("Лист1").Range("J60000").End(xlUp).Row

    For q = 1 To Общее Step 1
        w = Cells(q, 8).Value
        колво = Cells(q, 11).Value

        For e = 1 To колво Step 1
            Cells(w - 1 + e, 2).Value = "+"
        Next e
    Next q
End Sub

Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B9").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B9").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
       Arr1(i, j) = IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub

ABC(IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0))

Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B10").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B10").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
        Arr1(i, j) = Arr1(i, j) - Arr2(i, j)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub

Function VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                  N As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    Select Case TypeName(Table)
    Case "Range"
        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = Table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Table)
            If Table(i, 1) = SearchValue Then iCount = iCount + 1
            If iCount = N Then
                VLOOKUP2 = Table(i, ResultColumnNum)
                Exit For
            End If
        Next i
    End Select
End Function

Sub CollectDataFromAllSheets()    
Dim ws As Worksheet
     Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
      
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:T1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
      
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
      
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
          
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        ' Set rngData = ws.Range("A2:T20")            'фиксированный диапазон или
     '  Set rngData = ws.UsedRange                 'всё, что есть на листе или
      '  Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
          
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
          
    Next ws
End Sub

Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
     
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
     
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:T1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        ' Set rngData = ws.Range("A2:T20")            'фиксированный диапазон или
     '  Set rngData = ws.UsedRange                 'всё, что есть на листе или
      '  Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
         
    Next ws
End Sub