Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("f5").Address Then Exit Sub
myrow = Target + 1
With Sheets(1)
.Cells(myrow, "c") = Range("d16")
.Cells(myrow, "e") = Range("h16")
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
You need to be more clear. Perhaps send your workbook to my address below
along with clear instructions and before/after examples. Also, a snippet
of this msg so I know from whence it came.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Benijofar Dave" <Benijofar wrote in
message ...
Help please very new to macros.
I need to take users input value from sheet1 and search col A in sheet2
for
the same number, say number 5, then move across row 5, four columns and
insert a date value from sheet1 along with calculated future date value
in
column 5. have spent ages trying to do this, but unable to do it in
macro.
really would appreciate any help. I´m using excel 2003.