Vba performance optimization

shape