Advanced filtering or index/match problem

[excelhjalp]

Hello!

I have a range with columns "Product", "Type" and very many date columns, the one on the left in XL2bb. This shows the inventory for each day. Please note that in reality the products, type and dates are way more than in this example.
I need to create a table (the one on the right in Xl2bb) that filters out the instances where the inventory is <0 and shows what product is missing, it's type, how many are missing and which dates.

Thank you in advance!

qqqqq (1).xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	Product	Type	1.9.2022	2.9.2022	3.9.2022	4.9.2022	5.9.2022	6.9.2022	7.9.2022	8.9.2022	9.9.2022	10.9.2022	11.9.2022	12.9.2022	13.9.2022
2	A	1	0	0	0	0	0	0	0	0	0	0	0	0	0
3	A	2	2	2	2	2	2	2	2	2	2	2	2	2	2				Product	Type	Missing	Date
4	A	3	3	3	3	3	3	3	3	3	3	3	3	3	3				A	4	-1	8.9.2022
5	A	4	0	0	0	0	0	0	0	-1	-1	-1	-1	-1	-1				A	4	-1	9.9.2022
6	A	5	6	6	6	6	6	6	6	6	6	6	6	6	6				A	4	-1	10.9.2022
7	A	6	2	2	2	2	2	2	2	2	2	2	2	2	2				A	4	-1	11.9.2022
8	A	7	2	2	2	2	2	2	2	2	2	2	2	2	2				A	4	-1	12.9.2022
9	A	8	1	1	1	1	1	1	1	1	1	1	1	1	1				A	4	-1	13.9.2022
10	B	10	2	2	-2	-2	2	2	2	2	2	2	2	0	0				B	10	-2	3.9.2022
11	B	20	3	3	3	3	3	3	3	3	3	3	3	3	3				B	10	-2	4.9.2022
12	B	30	4	4	4	4	4	4	4	4	4	4	4	4	4				B	50	-3	4.9.2022
13	B	40	4	4	4	4	4	4	4	4	4	4	4	4	4				B	50	-3	5.9.2022
14	B	50	1	1	1	-3	-3	1	1	1	1	1	1	1	1
15	C	1	0	0	0	0	0	0	0	0	0	0	0	0	0
16	C	2	4	4	4	4	4	4	4	2	2	2	2	2	3
17	C	3	7	7	7	7	7	7	7	7	7	4	4	4	6
18	C	4	4	4	4	4	4	4	4	4	4	4	4	4	4
19
20
21
22
Sheet2

 

[DanteAmor]

Try this macro:
Your data in Sheet2, results in Sheet3

Sub AdvancedFiltering()
  Dim i As Long, j As Long, k As Long, lr As Long, lc As Long
  Dim a As Variant, b As Variant
  
  With Sheets("Sheet2")
    lr = .Range("A" & Rows.Count).End(3).Row
    lc = .Cells(1, Columns.Count).End(1).Column
    a = .Range("A1", .Cells(lr, lc)).Value
  End With
  ReDim b(1 To UBound(a, 1), 1 To 4)
  
  For i = 2 To UBound(a, 1)
    For j = 3 To UBound(a, 2)
      If a(i, j) < 0 Then
        k = k + 1
        b(k, 1) = a(i, 1)
        b(k, 2) = a(i, 2)
        b(k, 3) = a(i, j)
        b(k, 4) = a(1, j)
      End If
    Next
  Next
  
  With Sheets("Sheet3")
    .Range("A1").Resize(1, 4).Value = Array("Product", "Type", "Missing", "Date")
    .Range("A2").Resize(k, 4).Value = b
  End With
End Sub