---

Sub Variant1()
    Dim x As Double, y As Double
    Dim row As Integer
    row = 1
    For x = 6 To 20 Step 0.5
        y = Sin(x)
        Cells(row, 1).Value = x
        Cells(row, 2).Value = y
        row = row + 1
    Next x
End Sub