Excel VBA - 适用于下一循环难度

Question

我在解读功能性下一循环的构造时遇到了困难
我有一个单元格范围，我希望将其推进（偏移），并将每个增量移动写入数据（A）放入新单元格中。只有6个动作。非常感谢您对以下方面的帮助。

  dim Tk as range
  dim T as integer
  dim A as string
  dim ws as worksheet

  set ws = Sheet1
  T = Tk.column

     For i = (1 + T) To (6 + T)
        .Cells(1, T).Offest(0, i).Value = A   <---- this expression is rejected
     Next i