I want to create a BarLegend consisting of the colors

Table[Lighter[Red, 1 - i], {i, 0.3, 1, 0.15}]

and than to remove from the bar the numbers on its left.

I what I have at the moment is this:

bar = BarLegend[{Table[Lighter[Red, 1 - i], {i, 0.3, 1, 0.15}], {0, 
    1}}, LegendMarkerSize -> 350, LabelStyle -> Directive[Black, 16]]

And I want to add the words Low and High to the number 0 and 1, so to get something like this:

(This was created with an image editor)

How Can I do that?

I tried passing None instead of {0,1} in my command but that produced no graphics at all.