VBA for may row data joint in one row

differant approach

Fill data in column A (with the macro below) and after that filter on total.

See the attached file.

Please reply.

Sub filldata_acending_incolumnA_Oeldere()

'from top to below (acending)

    Range(Range("a2"), Cells(Rows.Count, 3).End(xlUp).Offset(, -2)). _
        SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    
End Sub