run VBA and enter VBA code

run VBA and enter VBA code