...Hm, I don't know what I did but it works now :) thanks
--
Greatly appreciated
Eva


"Mike H" wrote:

Hi,

In what way doesn't it work because it looks fine to me?

Mike

"Eva" wrote:

Hi
I have this macro that doesn't work and I am not sure why:

LastRow = Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("P2:q2").Copy _
Destination:=Sheets("Sheet1").Range("P3:Q" & LastRow)
Calculate

Macro should check how many rows are in column D and then copy the formula
form P2:Q2 down to the last row.


--
Greatly appreciated
Eva