Good of you to post the final solution to your problem!
Looking at the macro perhaps one could say that since you almost at the start activate sheet1 you don't need to refer to this sheet i.e.
just writing
will work just as well
The line
could be written as
as this will find the last used row in column B instead of setting a high number to ensure that the B column is cleared.
could be written as
where the offset command starts clearing the used range starting from the 5th column and here I use Sht1 as this is easier to write than "ActiveSheet.UsedRange".
So really no improvement of your present code just showing different way of writing some parts of it.
Alf
Bookmarks