Sub SolidColor()
Dim cl As Range
Dim iShp As Shape
Dim arrNm()
Dim lRow&, iLeft&, iTop&, iCol&, r&, g&, b&, I&
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
    .Shapes("tempName").Delete
    lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    iLeft = .Range("E2").Left
    iTop = .Range("E2").Top
    For Each cl In .Range("B2:B" & lRow).Cells
        iCol = cl.Interior.Color: b = Int(iCol / 65536): g = Int((iCol - b * 65536) / 256): r = (iCol - b * 65536) - (g * 256)
        Set iShp = .Shapes.AddShape(msoShapeRectangle, iLeft, iTop, 150, 100 * cl.Value)
        ReDim Preserve arrNm(I)
        arrNm(I) = iShp.Name
        With iShp
            .Line.Visible = msoFalse
            .Fill.ForeColor.RGB = RGB(r, g, b)
        End With
        iTop = iShp.Top + 100 * cl.Value
        I = I + 1
    Next
    Set iShp = .Shapes.Range(arrNm).Group
    iShp.Name = "tempName"
End With
Application.ScreenUpdating = True
End Sub