Macro to rename cell content based on the starting character until found same character

Hi , Is there a macro to to rename cell content based on the starting character until found same character .
B1 Cafe
B2 qty
B3 unit
B4 Cafe
B5 Lobby
B6 qty
B7 unit
B8 Lobby

It will Be
B1 Cafe
B2 Cafe
B3 Cafe
B4 Cafe
B5 Lobby
B6 Lobby
B7 Lobby
B8 Lobby

Attached Files

• before.xlsx‎ (21.7 KB) Download
• after.xlsx‎ (21.7 KB) Download