In your case, the First Row means row 2 (headers in row 1)???

dim LastRow as long
with worksheets("sheet1")
lastrow = .cells(.rows.count,"A").end(xlup).row
.range("x2:x" & lastrow).formula = "=month(I2)"
end with

I used column A to find out the last row used--change that "A" to a column that
you know has data if the row is used.

And I put the formula in column X.


geebee wrote:

hi,

I am trying to find a way to paste a formula into a certain column in excel
using VBA. Trying to paste the following formula:

=MONTH(I2)

The code should go to the first rown, and then paste the formula for all
rows entered.

Thanks in advance,
geebee

--

Dave Peterson