if they are contiguous from A1

cells(1,1).End(xldown)(2).Filldown

--
Regards,
Tom Ogilvy


"Bob F" wrote:

Tom,

This code works to get the next row, however it is skipping by blank cells
and going to the end of the column where there are some aggregate totals, and
adding a new cell after that. I need something that just goes to the last
cell of the contiguous data and autofills one more.

The month/year are already formatted into the spreadsheet, so I do no
believe I need any special coding with regard to format there. I just need
the simple action of autofilling the next cell in the Column A.

Thanks to you and Kevin for your responses thus far!

Bob

"Tom Ogilvy" wrote:

set rng = cells(rows.count,1).End(xlup)(2)
rng.Resize(1,10).filldown

--
Regards,
Tom Ogilvy


"Bob F" wrote:

I need some help with some programming inside a macro.

I am trying to simply create a macro which when run, autofills the next
month (one cell at a time). I have a spreadsheet where A8 begins the listing
of months. All I need is to make a macro that finds the last filled in month
in column A and autofills the next cell (which is blank).

My problem is that I am not familiar enough with using the code to create a
macro that is dynamic in this way. I believe this is rather basic for most
who are familar with visual basic, but I just can't find anyone around the
office who can help me.

Thanks!