For x = 8 To 100 Step 1
    If IsEmpty(Cells(x, 1)) = 0 Then
    GoTo finish2
    Else
    Cells(x, 4).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 4):R[-1]C)"
    Cells(x, 5).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 5):R[-1]C)"
    Cells(x, 6).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 6):R[-1]C)"
    End If
    GoTo finish1
finish2:
Next x
finish1:
   
End Sub