---

Sub Variant7_Fixed()
    Dim x As Double, y As Double
    Dim row As Integer
    row = 1
    
    For x = -25 To 57 Step 4
        If x < 10 Then
            y = x + 2
        ElseIf x >= 10 And x <= 20 Then
            ' В VBA корень — это Sqr
            y = Sqr(2 * x) 
        Else
            y = 3 - (x ^ 2)
        End If
        
        ' Пишем именно Cells (во множественном числе)
        Cells(row, 1).Value = x
        Cells(row, 2).Value = y
        row = row + 1
    Next x
End Sub