Find maximum number of rows with text, then fill accordingly

[mikerickson]

How about

With Sheet1.Range("A:B")
    With Application.Intersect(.EntireColumn, .SpecialCells(xlCellTypeConstants).EntireRow)
       .Offset(1, 2).Resize(.Rows.Count - 1, 1).Value = "FILL TEXT"
    End With
End With