I want to check if a particular cell has a shape, eg. B7.
if it doesnt exist, make new shape at B7 (B7.top, B7.left).
if it exists, move X columns to the right and make new shape

I tried checking by following code, but it doesnt work, because I dont think it can search this way:

rg = Activesheet.Range("B7")
Do While Not rg.Value = vbNullString
rg = rg.Offset(0, 6)
Loop