Thanks, Tom for the help, it worked.

"Tom Hutchins" wrote:

Try this:

Sub AddFormulas()
Dim LR As Long
'Activate xl_WksheetAC05_52712 (must set object variable first)
xl_WksheetAC05_52712.Activate
'Find the last cell in row C
LR& = Range("C2").End(xlDown).Row
'Add formulas in row 2
Range("A2").Formula = "=SUM(RC[2]:RC[4])"
Range("B2").Formula = "=RC[6]-RC[5]"
'Use AutoFill to copy the formulas down
Range("A2:B2").Select
Selection.AutoFill Destination:=Range("A2:B" & LR&)
Calculate
End Sub

Hope this helps,

Hutch

"mc" wrote:

Hi, I am using excel 2003. I have a spreadsheet that has approx 3000 lines.
I am trying to code Col A to equal the values in Col C, D & E. And Col B = H
- G. The following code works, but takes a long time to execute:
xl_WksheetAC05_52712.Range("C2").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(-2,0 ).Value = ActiveCell.Value &
ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(0, 5).Value
- ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Select
Loop

Is there a better solution? Thanks in advance.