simple problem is killing me

[lrneilson]

Hi
this is my macro everyday my data grows by a column so tomorrow A81-GNO81
and I have to add this row every day can I automate it so I don't have to edit the marco
every day?? I've put <----trouble spot each place I would like to automate

thanks

lrneilson


Range("A1:A81").Select
Range("A81").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-80]C:R[-1]C)"
Range("A1:A81").Select
ActiveWindow.ScrollRow = 47
Range("A81").Select
Application.CutCopyMode = False
Selection.Copy
Range("B81:GN81").Select <-----Trouble spot!!!!!!
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False



ActiveWindow.ScrollRow = 1
Range("A1:GO1").Select <-----trouble spot
Range("GO1").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-196]:RC[-1])"
Range("A1:GO1").Select
ActiveWindow.ScrollColumn = 183
Range("GO1").Select
Application.CutCopyMode = False
Selection.Copy
Range("GO2:GO81").Select <-----trouble spot
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

 

[Kaps_mr2]

Use a dynamic NAMED range rather than explicit ranges.

 

[lrneilson]

could you give me an example??

thanks

lrneilson

 

[RoryA]

Try this instead:

Dim lngColumn As Long
lngColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(81, 1), Cells(81, lngColumn)).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
Range(Cells(1, lngColumn + 1), Cells(81, lngColumn + 1)).FormulaR1C1 = "=SUM(RC1:RC[-1])"