Convert excel formula to vba macro scrip