Finding the text and moving Next cell

[AT BABU]

Hi All,

Thank for your support for learning for VBA

I have a small problem, I find the text and copy 7 cell in the Active sheet but code not move Next finding. This my code


Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
Range(ActiveCell, ActiveCell.Offset(0, 9)).Copy

[TABLE="width: 70"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Date[/TD]
[/TR]
[TR]
[TD]View[/TD]
[/TR]
[TR]
[TD]work[/TD]
[/TR]
[TR]
[TD]Key Observations

Empty cells

[TABLE="width: 70"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Date[/TD]
[/TR]
[TR]
[TD]View[/TD]
[/TR]
[TR]
[TD]work[/TD]
[/TR]
[TR]
[TD]Key Observations[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

 

[AT BABU]

OK