How to determine 7 calendar days?

[pivotguy]

I have input sheet containing dates . I would like to find out what is the 7 calendar days from that input days.
The output file have all other attributes exactly same as input file, except the date. This can not be done manually
because the original file contains ~600 records. Any suggestion .


See the attached file contain 2 sample records.




Input
=====
Perform Name--> engine#-->Date-->system
=======================================
David Smith---->ACB098-->2/10/2015-->Laptop


OUTPUT
======
Perform Name--> engine#-->Date-->system
========================================
David Smith---->ACB098-->2/10/2015-->Laptop
David Smith---->ACB098-->2/9/2015-->Laptop
David Smith---->ACB098-->2/8/2015-->Laptop
David Smith---->ACB098-->2/7/2015-->Laptop
David Smith---->ACB098-->2/6/2015-->Laptop
David Smith---->ACB098-->2/5/2015-->Laptop
David Smith---->ACB098-->2/4/2015-->Laptop

[pivotguy]

This issue is resolved.


Sub Test()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim rDate As Range
Dim x As Long
For Each rDate In Range("C2:C" & LastRow)
For x = 0 To 6
Range("A" & rDate.Row & ":B" & rDate.Row).Copy Sheets("Output").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Sheets("Output").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = rDate - x
Sheets("Output").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = rDate.Offset(0, 1)
Next x
Next rDate
Application.ScreenUpdating = True
End Sub