Help. Need help arriving at VBA code to:

After working in an opened workbook called LmbcAcctsPayable.xls sheet named Data,

Save As LmbcAcctsPayableCopy.xls & copy column J, then

Open LmbcAcctsPayable.xls & paste column J above to it's column J, then

Save & exit LmbcAcctsPayable.xls, then

Exit LmbcAcctsPayableCopy.xls without saving, then

Delete file LmbcAcctsPayableCopy.xls

Thanks a million for all your help. mikeburg