hi,
i'm assuming that the new sheet will have the data in columns A and B. if
not you will have to edit the macro.
you will have to change the sheet names in the macro.

Sub macCaptureData()
Dim ccc As Range
Dim ccc2 As Range
Dim ppp As Range
Dim ppp2 As Range
Sheets("Yoursheet").Select
Set ccc = Range("B9")
Set ppp = Range("B19")
Set ccc2 = Sheets("newsheet").Range("A1").End(xlDown).Offset( 1, 0)
Set ppp2 = Sheets("newsheet").Range("B1").End(xlDown).Offset( 1, 0)
ccc2.Value = ccc.Value
ppp2.Value = ppp.Value
End Sub

regards
FSt1

"dpt" wrote:


hi all,

I need to copy the value of a cell in b9 and value of a cell in b19
from worksheet summary to a new work sheet historical data.

These cells are subject to change frequently, so i need to keep the
history data in teh new sheet.

In the new sheet it should look something like this:

Date Estimated effort

10-feb 23
11-feb 12 and so on.

please help me by giving the excel code to achieve this.Its really
urgent

Thanks in advance..


--
dpt
------------------------------------------------------------------------
dpt's Profile: http://www.excelforum.com/member.php...o&userid=25861
View this thread: http://www.excelforum.com/showthread...hreadid=392446