Macro DtRNG as Range, Dt as Range, Multiple Criteria or dates

I can also tell you what each line is doing as well if its not written how you are used to reading it. LOOK FOR THE COMMENTS IN ALL CAPS AND WITH THE ' STARTING THE LINE AS WELL. MAYBE THIS WILL HELP.

    Sub WeeklyIntegrationSetupCIC()

 'YOU ALREADY HAVE THIS PART SO I WILL SKIP THIS AREA
        Application.DisplayAlerts = False
        Workbooks.Open Filename:= _
            "I:\ACCOUNTING\Clear Payments\Current Month\zIntegration template BLANK.xls"
        ChDir "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed"
        Workbooks.Open Filename:= _
            "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1-DATE6_CIC_DailyFile.xls"
        Range("B7:W7").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.SpecialCells(xlCellTypeVisible).Select
        Selection.Copy
        Windows("zIntegration template BLANK.xls").Activate
        Sheets("FeeSetup").Select
        Range("B7").Select
        ActiveSheet.Paste
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        
        Workbooks.Open Filename:= _
            "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1-DATE6_GA_DailyFile.xls"
        Range("B7:W7").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.SpecialCells(xlCellTypeVisible).Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("zIntegration template BLANK.xls").Activate
        ActiveSheet.Paste
        Windows("DATE1-DATE6_CIC_DailyFile.xls").Activate
        ActiveWindow.Close
        Windows("DATE1-DATE6_GA_DailyFile.xls").Activate
        ActiveWindow.Close
        Sheets("CkbkSetup-single dist_site").Select
 '___________________________________________________________________________________________________

        Workbooks.Open Filename:= _
            "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1_CIC_LocationSummaryReport.xls"
'FORMATTING COLUMN A TO DATE FORMAT AND 10 WIDTH
        Columns("A:A").Select
        Selection.NumberFormat = "mm/dd/yy;@"
        Selection.ColumnWidth = 10
'IN CELL A6 MAKING A HEADER FOR THE COLUMN
        Range("A6").Select
        ActiveCell.FormulaR1C1 = "date"
'IN CELL A7 PUTTING IN THE DATA THAT I CHOOSE DATE11 TO BE WHICH ESSENTIALLY IS THE FIRST DATE OF THE WEEK LIKE LAST WEEK WAS MONDAY FEB 25TH SO THE DATA I WOULD WANT DATE11 TO BE REPLACED WITH IS 02/25/13 IN THAT FORMAT
        Range("A7").Select
        ActiveCell.FormulaR1C1 = "DATE11"
'COPING THE CELL A7 SO THAT I CAN PASTE IT INTO THE DATA BELOW WHERE DATA EXISTS IN CELLS IN COLUMN B SO THAT EACH ROW HAS A DATE OF THAT DATE BECAUSE THE FILE I OPEN DOES NOT HAVE A DATE HEADER SHOWING WHAT DATE THE DATA GOES WITH I HAVE TO PUT ONE IN THE SPREADSHEET FOR EACH ROW BECAUSE THE TEMPLATE CALLS A FORMULA BASED ON THE DATE IN COLUMN A CELL REFERENCE IN THE TEMPLATE
        Range("A7").Select
        Selection.Copy
        ActiveCell.Offset(0, 4).Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(0, -3).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Selection.Copy
        Range(Selection, Selection.End(xlUp)).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
'THIS IS COPING THE DATA IN THE SPREADSHEET WITH THE DATE THAT WAS ADDED AND PASTING IT INTO THE TEMPLATE
        Range("A7:N7").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Windows("zIntegration template BLANK.xls").Activate
        ActiveSheet.Paste
'THIS IS SIMPLY GOING TO THE BOTTOM OF THE COLUMN A NEXT CELL DOWN OR FINDING THE NEXT EMPTY CELL IN COLUMN A SO THAT WHEN THE NEXT COPY AND PASTE IS DONE IT WILL NOT OVERLAP ANY OF THE DATA ALREADY PASTED
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select


'THE DATA FROM HERE DOWN REPEATS THE SAME INSTRUCTIONS OVER AND OVER AGAIN UNTIL EACH FILE FOR EACH DAY IS COPIED AND PASTED AS WELL.