Dim raw As Worksheet
Dim formula As Worksheet
Dim i As Integer

i = 5

Set raw = ThisWorkbook.Worksheets("Raw")
Set formula = ThisWorkbook.Worksheets("Formula")

Range("G5").Select

Do Until IsEmpty(ActiveCell)

    formula.Range("C2").Copy Destination:=raw.Cells(i, 4)
     ActiveCell.Offset(1, 0).Select
     i = i + 1

  Loop