复制特定单元格并粘贴到另一个工作表

Question

我想从一张纸上复印一张纸并粘贴到另一张纸上。单元格是可变的，其中a和b分别是行号和列号。我尝试了以下代码，但未粘贴值：

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

我在一个工作表中有多个5行的列，我有一个数据表，它以5个数据点的形式从用户那里获取输入。我想从最后一个开始从该工作表中复制5个数据点，然后向每个列中的5个开始移动到我提到的第一个工作表中。基本上我是将一个工作表中第2行的最后一个单元格中的5个数据点复制到另一个工作表的第2行到第20行和第32到36行。因此，当目标工作表超过20列或源表中的数据集为空时，循环结束。