If Sally, who clearly had a monopoly on fresh lemonade in the neighborhood, would have been interested in "price searching", then she would have charged $1.15 per cup and maximized her profit. This would have increased her producer surplus at the expense of consumers. The overall surplus would have shrunk (deadweight loss).

Make a VBA subroutine from so that it will calculate the change in consumer and producer surplus and calculate the deadweight loss for a random price searching value.