---

Sub Task_1()
    Dim x As Double, row As Integer
    row = 2
    Cells.Clear
    Cells(1, 1) = "x": Cells(1, 2) = "y = sin(x)"
    
    For x = 6 To 20 Step 0.5
        Cells(row, 1) = x
        Cells(row, 2) = Sin(x)
        row = row + 1
    Next x
    MsgBox "Вариант 1 готов!"
End Sub