I may be wrong but your line where your error occurred.... the left hand side is your variable and you cannot do it like that. You can set it up as an array, I think that is what you after
  dim cel(250) as string

   cel(pk) = Cells(1, r).Value