Script for triming selected area for EXCEL in VBA