Macro - To copy a date from Sheet 1 and search in Sheet 2

Hello team,

Could you please help me with a script for the below example.

1. Sheet 1 - has a Date ( from the data validation Field ( ex : 09/25/2014)
2. Sheet 2 - Has series of Date Horizontally in different cells but same row ( ex : 09/20/2014 | 09/21/2014 |09/25/2014)

The macro should look for the date in Sheet 1 and come to Sheet 2 and search the date and go below the date and extend formulas for the date.

I tried recording the macro, but it always stop at the same day which i recorded, even though i change the date from the data validation it still stops there.

********************************************************

Sub Macro1()
'
' Macro1 Macro
'

'
Selection.Copy
Sheets("sheet2").Select
Cells.Find(What:="9/22/2014", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("W12").Select
End Sub

thanks,
Aladdin

AttachmentSize
Help Workbook.xlsm25.52 KB