Does it mean by replacing Range("M204") with
"activecell.SpecialCells(xlCellTypeLastCell).R ow" will work? Could you tell
me where I should put this code in? I am a beginner in this. Can I apply the
same code for other specific cell, like N204, in the macro? Thanx.



"William Benson" wrote:

The last row that was ever "touched" can be found using
activecell.SpecialCells(xlCellTypeLastCell).Row

however, sometimes cleared contents from cells are still treated as "used"
rows until the file is re-saved.

This gives you the real last row with data:
activesheet.usedrange.SpecialCells(xlCellTypeLastC ell).Row

HTH

Bill Benson
http://www.xlcreations.com

"JN" wrote in message
...
Hi,

I am trying to set up a macro to fill up formulas two rows below the last
row of a worksheet. The problem is this number of rows is different each
week. I have a hard time making this macro works for different week.
Thanks.

Below is the code:

Sub Macro13()
'
ActiveCell.FormulaR1C1 = "Total"
Range("M204").Select
ActiveWindow.SmallScoll Down:=12
Range("M199").Select
Selection.Copy
Range("M204").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[1])-SUM(RC[2])"
Range("M205").Select
ActiveWindow.SmallScroll ToRight:=1
Range("N204").Select
ActiveCell.FormulaR1C1 = "=+R[-2]C/R[-203]C"
Range("N204").Select
Selection.AutoFill Destination:=Range("N204:S204"), Type:=xlFillDefault
Range("N204:S204").Select
Selection.NumberFormat = "#,##0.0_);[Red](#,##0.0)"
Selection.Font.Bold = True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("M204").Select
End Sub