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

Date

View

work

Key Observations Empty cells Date View work Key Observations <colgroup><col></colgroup><tbody> </tbody>

<colgroup><col></colgroup><tbody>
</tbody>

 

[AT BABU]

OK