Hello Jim,
thanks. I tried but did not work. The filldown is seem to
be not working. I will repost just in case. I really do
appreciate all your help.

Once again thanks,

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

Try the following code on a blank sheet.
Try it with LastRow = 8 and with LastRow = 20

'------------------------
Sub TestFillRange()
Dim LastRow
Range("K15").Value = "Test"
LastRow = 8 'or 20
Range("K15:K" & LastRow).FillDown
End Sub
'------------------------

Regards,
Jim Cone
San Francisco, USA



"Juan" wrote in message
...
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

.