VBA code to shorten the number of lines according to the condition

[Excelpromax123]

Hi everybody. I need to reduce data table B5:D1000 according to the following condition. If the row value of column C > 0 or the row value of column D is not a number, leave it as is and do nothing. The remaining case is reduced to the value of column D . Then output an area as the image describes. Thank you
Link File:

abc new --------.xlsm

drive.google.com

 

[mohadin]

Hi
See If this suits you

Sub test()
    Dim a, w
    Dim i&
        a = Range(Cells(5, 2), Cells(5, 4).End(xlDown)).Cells
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a)
            If Not .exists(a(i, 1) & a(i, 2) & a(i, 3)) Then
                .Add a(i, 1) & a(i, 2) & a(i, 3), Array(a(i, 1), a(i, 2), a(i, 3), a(i, 3), 1)
                w = .Item(a(i, 1) & a(i, 2) & a(i, 3))
                w(3) = IIf(a(i, 2) = "", w(3) & "x" & w(4), 0)
                If a(i, 2) = "" Then w(3) = 0
                 .Item(a(i, 1) & a(i, 2) & a(i, 3)) = w
            Else
                w = .Item(a(i, 1) & a(i, 2) & a(i, 3))
                w(2) = w(2) + a(i, 3)
                w(4) = w(4) + 1
                w(3) = IIf(a(i, 2) = "", a(i, 3) & "x" & w(4), "")
                .Item(a(i, 1) & a(i, 2) & a(i, 3)) = w
            End If
        Next
        Cells(4, 7).Resize(.Count, 4) = Application.Index(.items, 0, 0)
    End With
End Sub