Well,
In that case you can Tag your TextBoxes '1', '2' and so on according to
the column number.
When you click on fill button you can loop through the textbox
collection and for each textbox call

textbox.Text = Application.Selection.Cells[Application.ActiveCell.Row,
TextBoxTagNumber].Value

hope this helps !!!