Find maximum number of rows with text, then fill accordingly

[snb]

Sub M_snb()
  cells(1).currentregion.columns(3)="snb"
End sub