I am Using B/M code in VBA excel but it's too much time.
This Formula In G33:J33 Cell
=IFERROR(INDEX('INV LOG'!$B:$B,SMALL(IF($E$8='INV LOG'!$J:$J,ROW('INV LOG'!$J:$J)-ROW('INV LOG'!$J$1)+1),$X1)),"")
Range("G33:J33").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.Copy
Range("G33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
This Formula In G33:J33 Cell
=IFERROR(INDEX('INV LOG'!$B:$B,SMALL(IF($E$8='INV LOG'!$J:$J,ROW('INV LOG'!$J:$J)-ROW('INV LOG'!$J$1)+1),$X1)),"")
Range("G33:J33").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.Copy
Range("G33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False