LastRow.Offset(1,3).Resize(1,2).Filldown


assuming the last filled row has the formulas

--
Regards,
Tom Ogilvy

"gregork" wrote in message
...
I have the following user form code to add data to a worksheet:

Dim LastRow As Object

Set LastRow = Worksheets("Raw
Material").Range("b5000").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox5.Text
LastRow.Offset(1, 2).Value = TextBox1.Text
LastRow.Offset(1, 5).Value = ComboBox2.Text

On the worksheet I have formulas in cells referring to the cells where I
add
data. These formulas will have to be filled all the way down the worksheet
in anticipation of new entries. Instead of filling all these formulas down
the sheet, is it possible to add code to what I use when I add data that
will fill formulas down?

GK