Range("I" & Range("Restraints").Row).End(xlToLeft).Select
Sheets("RESTRAINTS").Range("B5").Value = ActiveCell.Value

I need say in the first line above to read the numeric and stop when it gets
to first text. There are numbers on the other side of the text I do not want
to carry over. Thanks!