Hello Jim
thanks. But not sure if I'm explaining it right. For my
example, there is no data below A8. When I use this same
logic on a different sheet and reference my data sheet,
it works.
So need to copy range in column A and range of Column O
to the last row of data.

Please advise if anyother info.

Thanks,

Juan

-----Original Message-----
Juan,

It works for me.
However, it leaves Column K blank if there is no data in
Column A below row 15.
Also, the line "Dim LastRow1 as Long should not be
commented out.

Regards,
Jim Cone
San Francisco, USA

"Juan" wrote in message
...
Hello All,
can't seem to get the following to work properly.
Here's
my code:
Dim Lastrow As Long
' Dim Lastrow1 As Long
Lastrow = ActiveSheet.Cells(Rows.Count, "A").End
(xlUp).Row
Lastrow1 = ActiveSheet.Cells(Rows.Count, "O").End
(xlUp).Row
Range("K15").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[-10]"
Range("K15:K" & Lastrow).Filldown
Range("L15").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[3]"
Range("L15:L" & Lastrow1).Filldown
This doesn't work. It leaves K15 empty, but L15 seems
to
get sum up. When I pu Xldown.row, this works but
copies
alll the way down.
So basically in Column K15 copy contents of Column A
and
filldown to last row of data in column A same thing
with
Column O copy in L15 and filldown. I have a formula in
Column O so I don't want the formula or just value,
since
when I update my formula, want those totals updated in
L15.
Hope I'm explaining this right.
Thanks for any help provided.
Juan
.