Automate AutoFill in Column

[JTF]

HI all

I have a formula in cell J2 that needs to be copied down to fill the
rest of column J. The problem is that the number of rows in the
worksheet will vary from month to month.

How do I indicate in the macro that the last row will vary? Thanks

[hideki]

Find the last row first

sub FillDownInJ()

dim lngLastRow as long

lngLastRow=Cells(rows.count,"J").end(xlup).Row

Range("J2:J" & lngLastRow).filldown

end sub

[Don Guillett]

lastrow=cells(rows.count,"j").end(xlup).row

--
Don Guillett
SalesAid Software
[email protected]
"JTF" <[email protected]> wrote in message
news:[email protected]...
> HI all
>
> I have a formula in cell J2 that needs to be copied down to fill the
> rest of column J. The problem is that the number of rows in the
> worksheet will vary from month to month.
>
> How do I indicate in the macro that the last row will vary? Thanks
>