Excel, run-time error 9, Subscript out of range?

k = Worksheets(s).Cells(i, 3).Value вот в этом
там когда нажимаешь кнопку РАСЧЕТ должен скопировать с первого листа данные и делать расчет