-
Are there many blank cells in column 6 of Alpha that you could do without copying over?
Perhaps changing:
Sheets("Alpha").Cells(j, 6).Copy Sheets("Reversion").Cells(i, 6)
to:
Sheets("Reversion").Cells(i, 6).value=Sheets("Alpha").Cells(j, 6).value
but the red font won't get copied across.
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules