Autofill

[carg1]

How would I make autofill work in a macro without having to explicitl
specify the range of cells I want to fill? I have a sheet in which th
number of rows changes all the time, and I need to autofill equations a
the beginning of two columns

 

[Tom Ogilvy]

Where to look to find the number of rows? Which columns.

 

[Guest]

This assumes that column 1 contains all the rows that need the formula
applied to and cell H1 contains the initial formula. Duplicate the copy/paste
process for multiple, non-adjacent columns. For adjacent columns, you could
"resize" the copy (".Resize(1, 2)").

Sub procFillFormulas()
Cells(1, 8).Copy
Range(Cells(2, 8), Cells(Cells(Rows.Count, 1).End(xlUp).Row,
8)).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End Sub

Dale Preuss