Thanks Les
it works great
Now I'm trying to understand why it works so that I can apply the code in
other circumstances.
Does Lrow1=Cells(Rows.Count,col).end(xlup).row find the last row with data?
if so why is it xlup and not xldown?
Does Const col As string= "A" <<== change to column determine the column to
look in first?
can you tell me what this does <<==change to column
Again thanks for your help
"Les Stout" wrote:
Hi Ram, sorry made a few errors with the last script, try this, it adds
row a & B and put the formula in C.
Sub InsertCalcE()
Dim rng As Range
Dim Lrow1 As Long
Dim CalcMode As Long
Const col As String = "A" '<<== CHANGE to column
Application.EnableEvents = False
Lrow1 = Cells(Rows.Count, col).End(xlUp).Row
On Error GoTo XIT
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Set rng = Range(col & "1:" & col & Lrow1) '<-Change to from row No.
With rng
.Offset(0, 2).FormulaR1C1 = "=SUM(RC[-2]+RC[-1])" '<<== CHANGE
End With
XIT:
With Application
.Calculation = CalcMode
.ScreenUpdating = True
End With
End Sub
Les Stout
*** Sent via Developersdex http://www.developersdex.com ***