Thanks, again, Paul for the suggestion. I guess I just don't know enough about vba to know the basics. Thanks for teaching me. I doubt I would know which bit of code to keep to do a test, but i appreciate the pointers. I can experiment with your advice and see how it goes.
Do you have any tips or hints as to why the code stops at
Code:
LastRow = .Cells.Find(What:="*", _
After:=.Range("A1"), _
Lookat:=xlpart, _
LookIn:=xlformulas, _
SearchOrder:=xlbyrows, _
SearchDirection:=xlprevious, _
MatchCase:=False).Row