Try adding the following and see if it meets your needs (test it on a copy of the workbook, not original data, so it doesn't corrupt your data if not correct)

Intersect(Activesheet.Usedrange, Columns(2)).value = "Shares"