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!
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!