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

This is the part of the code I wasn't following.

       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

First you select A7, copy it, move 4 columns to the right, then down to the last row of data, then 3 columns to the left, then you copy again and finally paste.

I think a sample workbook would probably clear up what's going on.