my code vba excel to solve problem in my work