Closing sweeps ends

Recently, in my work I have to do a lot of sweeps, like the one bellow:

Now, to close the ends I have to do a revolve:

This doesn´t seem much work, but, to do the revolve it takes about 23 clicks (Revolve, Select Plane for skecth, add references, define axis, project, trim...) for each end. Total of 46 clicks for closing both sides.

I´m trying to figure out a easier way to do this. I tried copy/paste and udf´s , but both fail often.

Jose