I am new to Excel macro creation, and I have looked around but have not quite found exactly what I am looking for. This is what I am trying to accomplish.

Create a Macro, I call it: ImprovedSheetCreateDated

I have 2 existing tabs:
Template Tab - Which has a sheet ready to take in my information
Date Range Tab - Has a list of date ranges for 2 years, in column A going down from A1-A24.

Basic Description:
This will copy the sheet 'Template' and then paste the copy as a new sheet. Then it copies A1 from 'Date Range' sheet, and renames the new copy of the Template tab with that A1 data. It also pastes A1 from 'Date Range' into A3 of the new sheet.

The Steps I am taking:
1). Copy the TEMPLATE tab
2). Paste the TEMPLATE Tab
3). In the 'Date Range Tab' copy data in A1.
4). Use the copied data from A1 in the 'Date Range Tab' to rename the newly created copy of 'Template'.
5). Paste the A1 data into cell A3, of the newly created copy of 'Template' tab.
6). Go back to the 'Date Range Tab' and delete A1. Column shifts up, with new data taking its place.

This is what I have so far:
Sub ImprovedSheetCreateDated()
'
' ImprovedSheetCreateDated Macro
' This will create a new worksheet, copy the template from 'Template' and then paste in the information onto a new sheet. Then it fixes the columns and adds dates, and renames the tab.
'

'
    Range("A1:L24").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Sheets("DateRange").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "Feb19 - Mar18 2011"
    Range("A3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("DateRange").Select
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
End Sub
The issue I have, is that it is stopping at the section: Sheets("Sheet3").Select

If I run this more than once, it can't 'FIND' Sheet 3, because it has previously been renamed, and the new sheet created in this process will be 'Sheet 4' etc.

Any help is very very welcome! Thank you in advance