record # if data in other columns in same row

[KDS14589]

Sub M_snb()
  sn = Sheet6.UsedRange
   
  For j = 1 To UBound(sn)
    If UBound(Split(Application.Trim(Join(Application.Index(sn, j))))) > 0 Then sn(j, 2) = Format(j, "\C\O00000")
  Next
   
  Sheet6.UsedRange = sn
End Sub

I'm going with your code THANKS but I'm getting both SN & j need to be variables declared. And the codename for the sheet is ShCO12 (worksheet names tend to change in design mode) if that matters.