从另一个工作表中的一个单元格复制到另一个单元格

我正在尝试使用下面的代码从一个单元格复制到另一个单元格。 循环运行良好，但值不粘贴在预期的列。

For a = 2 To d For b = 32 To 36 ActiveSheet.Cells(a, b).Value = Worksheets(sht).Cells(2, c).Value c = c - 1 Next b Next a 

我什至尝试ActiveSheet.Cells(2, 32).Value = "Hello"但它也没有工作。 请帮忙