Sub FUNC()

Dim i As Single
Dim k As Integer
Dim x As Double

a = InputBox("Введите первое число интервала: ", 360)
b = InputBox("Введите второе число интервала: ", 360)
h = InputBox("Введите шаг: ", 100)

Cells(1, 2) = "Аргументы функции"
Cells(2, 1) = "Результат функции"
k = 2

For i = a To b Step h
Cells(1, k) = x
n = 4
    For x = 0 To 360 Step h
        If i = a Then Cells(n, 1) = x
        x = sqrt(x) * Cos ^ 2 * x
        Cells(n, k) = x
        n = n + 1
    Next x
    k = k + 1
Next i
End Sub