VBA Looping for copy paste after running analysis

Hello,

I need some help with the following VBA. I was unable to get a loop to reliably run my analysis, and thought it may be easier for someone to look at the steps I need repeated. I have locked in specific cells that cannot change, and anything unlocked will need to copy/paste from the row below. I will need this to continue this loop until the dates from the Range B8-B1500 end (Output Tab). Thanks for your help--see below.

Sub Runner()

'Change Date

Worksheets("Output").Activate
Range("B8").Select
Selection.Copy

Worksheets("Analysis").Activate
Range("$C$10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'Copy and Paste Outputs From Analysis Tab to Outputs Tab

Range("$G$6").Select
Selection.Copy

Worksheets("Output").Activate
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Analysis").Activate
Range("$G$7").Select
Selection.Copy

Worksheets("Output").Activate
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Analysis").Activate
Range("$G$17").Select
Selection.Copy

Worksheets("Output").Activate
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Analysis").Activate
Range("$H$6").Select
Selection.Copy

Worksheets("Output").Activate
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Analysis").Activate
Range("$H$7").Select
Selection.Copy

Worksheets("Output").Activate
Range("H8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Analysis").Activate
Range("$H$17").Select
Selection.Copy

Worksheets("Output").Activate
Range("I8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'This is will be repeated until there are no more dates

End Sub