每个sheet相同位置插入不同的数据

以下是vba程序，修改其中的参数就可以完成你要求的填充任务（实例是把数据放在shee1的a1到a14单元格内，填加到sheet2到sheet14中的b5单元格中）
Sub 快速录入()
For i = 2 To 14
Worksheets(i).Activate Cells(5, 2) = Sheet1.Cells(i, 1).Value
Next i
End Sub
为啥这个不行？？？求教