merge blank columns based on first cell value

Question

i want to merge blank cells "O2" columns based on first cell value i tried below code,

Dim rng as range
Range("O2").Select
Range(Selection