Error 1004 - Cells method failed

[Marceltcm]

I´m getting the message posted in the title when I try to run this procedure:

Public Sub Causas()
Dim i As Integer
Dim j As Integer
Dim k As Integer

For k = 1 To 6
For i = 24 To 29
Sheets(i).Activate
j = Cells(37, 2).Value
With Sheets("Plan2")
  Cells(k, 1).Value = j
  End With
  Next i
  Next k

End Sub

What could it be?
Tnx!