Does anyone have a macro they would share that would offset the selcected surface "0" and delete the selected face?

Thanks