RandBetween range, skip cell without value in VBA

[Soraka]

I have this function that will go through BG2 and BG17 and randomly display the value of a cell within that range in AS25.
But, sometimes some of these cells within the range have no value, and it displays nothing in AS25.
How can I prevent that, by skipping the cells without value?

Please Login or Register  to view this content.

[oEx]

You should loop while the AS25 is empty (while random value is empty).

Please Login or Register  to view this content.

[protonLeah]

I don't know how many worksheets you are using. You:
Set ws = Worksheets("Main")

but, you say:
Range("BG2:BG17") without qualification so it references the active sheet, whatever that may be (ws=main, or...?)

Please Login or Register  to view this content.