Using a macro to copy and rename worksheet

We have a workbook where the sheets are named numerically in ascending order (left to right). I would like to create a macro which copies the last sheet, moves it to the end, and renames it 1 digit greater than the previous one (i.e. the sheet on the right is 001234, the copied sheet would go to the right of that and be called 001235.

Many thanks John, your help is much appreciated.

You're welcome. Glad to help out and thanks for the feedback.