VBA Looping for copy paste after running analysis

Thanks for pointing that out, Fotis1991. My bad, indeed.

Everything highlighted will be repeated. However, the cells highlighted in blue will stay the same while the others will need to be filled row by row until the last date from the output worksheet range B8:B1500 has been copied, and the results pasted.

Sub Runner() 'finansator
Dim wo As Worksheet, wa As Worksheet
 'Change Date
Set wo = Worksheets("Output"): Set wa = Worksheets("Analysis")
wo.Range("B8").Copy: wa.Range("C10").PasteSpecial Paste:=xlPasteValues
 'Copy and Paste Outputs From Analysis Tab to Outputs Tab
wa.Range("G6").Copy wo.Range("D8").PasteSpecial Paste:=xlPasteValues
wa.Range("G7").Copy:  wo.Range("E8").PasteSpecial Paste:=xlPasteValues
wa.Range("G17").Copy: wo.Range("F8").PasteSpecial Paste:=xlPasteValues
wa.Range("H6").Copy:  wo.Range("G8").PasteSpecial Paste:=xlPasteValues
wa.Range("H7").Copy:  wo.Range("H8").PasteSpecial Paste:=xlPasteValues
wa.Range("H17").Copy: wo.Range("I8").PasteSpecial Paste:=xlPasteValues
 
 ' I need this is will be repeated until there are no more dates

 End Sub