Sub macro()
    Dim iSh As Worksheet, oSh As Worksheet
    Set oSh = ThisWorkbook.Sheets("вывод")
    oSh.UsedRange.Clear
    Dim lr&: lr = oSh.Cells(oSh.Rows.Count, 1).End(xlUp).Row + 1
    Dim iCol&, i&
    For Each iSh In ThisWorkbook.Sheets
        With iSh
        If .Name <> oSh.Name Then
            .Range("a1:n2").Copy oSh.Range("a" & lr & ":n" & lr + 2): lr = lr + 2
            iCol = .Rows(2).Find("кол-во").Column
            For i = 3 To .Cells(.Rows.Count, iCol).End(xlUp).Row
                If .Cells(i, iCol) > 0 Then oSh.Range("a" & lr & ":n" & lr) = .Range("a" & i & ":n" & i).Value: lr = lr + 1
            Next i
            lr = lr + 1
        End If
        End With
    Next iSh
End Sub