Autofill

[carg1]

What I meant, more specifically (sorry I was kind of vague!) , is that
have formulas in cells M2 and N2, and I just want them to autofill down
For example, if the sheet has 368 rows, I want it to autofill columns
and N with the formulas down to the final row. Will that code

This assumes that column 1 contains all the rows that need the formula
applied to and cell H1 contains the initial formula. Duplicate th
copy/paste
process for multiple, non-adjacent columns. For adjacent columns, yo
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

 

[Guest]

Yes, this code will work; it includes your needed modifications. It is still
assumed that column one contains the last row that should get the formulas.
The "End(xlUp)" returns the last row. If a diferent column should be used,
change the 1 in "Cells(Rows.Count, 1)" to the desired column number or get
your row number using SpecialCells.

Sub procFillFormulas()
Cells(2, 13).Resize(1, 2).Copy 'copies formulas in cells M2:N2
Range(Cells(3, 13), Cells(Cells(Rows.Count, 1).End(xlUp).Row,
13)).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End Sub

Dale Preuss