VBA to enter date range based on date range in above cell

Hi All,
I was wondering if it is possible to have my macro also enter the next dange range when it inserts a new cell range.
It is currently called in the worksheet module when cell A1 is selected:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Address = "$A$1" Then
        Call Refresher
    End If
End Sub

Which executes the macro:

Sub Refresher()

Range("A2:D2").Select
    Selection.Copy
    Range("T3").Select
    Selection.Insert Shift:=xlDown
    Range("A3:D31").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-9
    Range("A2:D31").Select
    ActiveSheet.Paste
    Range("A31:D31").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

With the logic here being to copy the first row of data then paste it off the viewing area (in this case column T) for historical data, then to move the data up one row then clear the contents of the bottom row.
I also would like the next work weeks date range (Monday through Friday) to be inserted in Range A31:D31 regardless of what the actual date is. This data feeds a rolling 30 week trend chart.

Any help would be greatly appreciated, thanks!