Copy Data Meeting Condition To Cells On Another Worksheet

I have a bunch of data (by date) on one worksheet and I want to output results to another worksheet (in the same workbook). I want to be able to alter the rolling period for some financial calculations (thus the rolling period countdown). The code I've written doesn't suck the data from the second worksheet. The first worksheet is where vba is launched from. I've attached all the code.

Private Sub CommandButton1_Click()
Dim rowworking As Integer
Dim rowoutput As Integer
Dim rollingperiodcountdown As Integer
Dim Date1 As Date
Dim expectedreturn As Single
Dim returnwithedc As Single
Dim trackingdifference As Single
Dim returnwithbetamodulation As Single
Dim betamodulationtrackingdifference As Single
Dim improvement As Single
Dim x As Integer
Range("a5:g15000").Select
Selection.ClearContents
Range("a5").Select
For rowoutput = 5 To 500
Worksheets("Rolling Period").Activate
For rowworking = 3 To 15000
rollingperiodcountdown = Cells(rowworking, 9).....................