Sub cos()

     Dim zakresC As String
     Dim tablicaY As Range
     Dim wA As Integer, kA As Integer, wC As Integer, kC As Integer
     Dim i As Integer, j As Integer
     
     Set tablicaY = Application.InputBox( _
             prompt:="Wskaż zakres tablica Y :", _
             Title:="srednia ruchoma", _
             Type:=8)
     wA = tablicaY.Rows.Count: kA = tablicaY.Columns.Count

     zakresC = Application.InputBox( _
         "Wskaż pierwsza komorke tablicy wynikowej :", _
         "srednia ruchoma", , , , , , 8).Address()
     wC = Range(zakresC).Row - 1: kC = Range(zakresC).Column - 1

     ReDim wahania(wA)
     ReDim sr_ruchoma(wA)

     For i = 1 To wA - 2

        sr_ruchoma(i) = WorksheetFunction.Average(tablicaY(i).Resize(3, 1))
        Cells(wC + i + 2, kC + 1).Value = Round(sr_ruchoma(i), 3)

        wahania(i) = tablicaY(i + 2) - sr_ruchoma(i)
        Cells(wC + i + 2, kC + 2).Value = Round(wahania(i), 3)

     Next i

End Sub