[Help] Autofill formula then copy-paste-value in a same range

[iorinhoj]

Hi!

I hvae this code:
With Sheets("Database")
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
With Range("I15")
.FormulaR1C1 = "=(RC[-4]+RC[-2])-RC[-1]"
.AutoFill Destination:=Range("I15:I" & LastRow)
End With

With Range("L15")
.FormulaR1C1 = "=(RC[-4]+RC[-2])-RC[-1]"
.AutoFill Destination:=Range("L15:L" & LastRow)
End With
End Sub

---- but I need to copy paste value in the same range after the formula is complete.

Hope everyone could help.

Thanks in advance!

 

[Oubok]

Try this it might work for you, it does for me:
ActiveCell.Offset(0, 0).Range("A1:BS1").Select
Selection.Copy
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues