How to determine 7 calendar days from a input date in another excel tab?

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

I am getting the below error message

Run-time error "9":

Subscript out of range

When click on debug, the below line highlighted


Range("A" & rDate.Row & ":B" & rDate.Row).Copy Sheets("Output").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

I did not create a "OUTPUT" Tab . That's why I was getting error message. Your code is absolutely working. You are genius. Thank you so much.
Let me know how to put 5* on this solution.