Sub M_snb()
    Cells(1).Resize(3000) = [B1:B3000 & if(c1:c3000="","",">" & c1:c3000) & if(d1:d3000="","",">" & d1:d3000) & if(e1:e3000="","",">" & e1:e3000) & if(f1:f3000="","",">" & f1:f3000) & if(g1:g3000="","",">" & g1:g3000)]
End Sub