Getting Copy Error with For If Function

[ofd2008]

Hi,
There are 200 data tables and l can copy any table to other table with macro. l added a sample file.

Please Login or Register  to view this content.

Example: When l select Copy No "Z01" (in E31 cell), Macro is copying Z01's data to this table. But When l delete copy No in E31 cell, macro code is starting to find empty no and code is copying any cells for there are a lot of not entered data tables.
When l delete copy No, macro will not copy anything. How can l solve this situation? Another issue, excel is working slowly for macro code.

Regards.
Thanks for your helping.

[stnkynts]

Deleting an entire row or a single cell will trigger a worksheet change event, in a bad way usually. You can correct for this by adding the two lines of code first:

Please Login or Register  to view this content.

also, correct this

Please Login or Register  to view this content.

[ofd2008]

l added first code and it worked. But sorry, how can l correct offset code?

Please Login or Register  to view this content.

[stnkynts]

Alan.Offset(17,5)

Note: It would also be a good idea to have an if statement to capture an occurance where Range("E" & Target.Row) is not found.

[ofd2008]

That has worked a treat.
Thanks for your help. Regards.