Smart Merging

If you want to use VBA you should refrain from merging cells (VBA doesn't like them).

An alternative

Sub snb()
 sn = Cells(1, 2).CurrentRegion
    
 For j = UBound(sn) To 2 Step -1
  If sn(j, 1) = sn(j - 1, 1) Then sn(j, 1) = ""
 Next
    
 Cells(1, 3).CurrentRegion.Offset(, 7) = sn
End Sub

PS Unfortunately I wasn't able to detect any 'sage' info in the file