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

Here is the part of the code i could paste. We don't have to use the DtRNG and Dt if that is not going to work but maybe this might help with the thought of understanding what i am trying to accomplish i hope.

Sub WeeklyIntegrationSetupCIC()
'
' WeeklyIntegrationSetup MacroCIC
'
'===================================================================================================
'CTRL-F REPLACE "DATE1" W/1ST DATE OF WEEK, FORMAT AABBCC
'CTRL-F REPLACE "DATE11" W/1ST DATE OF WEE, FORMAT AA/BB/CC
'ETC...........................................................
'CTRL-F REPLACE "DATE6" W/1ST DATE OF WEEK, FORMAT AABBCC
'CTRL-F REPLACE "DATE66" W/1ST DATE OF WEE, FORMAT AA/BB/CC
'===================================================================================================

'
    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"
    Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE11"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1_GA_LocationSummaryReport.xls"
        Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE11"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Windows("DATE1_CIC_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    Windows("DATE1_GA_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    
    '====================================================================================================
    
    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE2_CIC_LocationSummaryReport.xls"
    Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE22"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE2_GA_LocationSummaryReport.xls"
        Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE22"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Windows("DATE2_CIC_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    Windows("DATE2_GA_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    '====================================================================================================
    
    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE3_CIC_LocationSummaryReport.xls"
    Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE33"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE3_GA_LocationSummaryReport.xls"
        Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yy;@"
    Selection.ColumnWidth = 10
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "date"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "DATE33"
    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
    Range("A7:N7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("zIntegration template BLANK.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Windows("DATE3_CIC_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    Windows("DATE3_GA_LocationSummaryReport.xls").Activate
    ActiveWindow.Close
    '    '===================================================================================
    MsgBox "Define the Names - Formulas - Name Managers - Select Name - Define Range - Check Mark - Okay."
    MsgBox "Save and Save as a backup copy as well"
End Sub