Something like this:
Sub blah()
y = 11 'destination row of first result
For x = 9 To 16500 Step 45 'source rows
'the 6 in the line below is the 6th column (F) and the 3 the 3rd(C)
Sheets("Daily Readings").Cells(x, 6).Copy Sheets("Generation").Cells
(y, 3)
y = y + 1
Next x
End Sub


The line beginning 'Sheets' may have been split by yahoo; the line
after it should be 'y = y + 1'