VBA代码将行拖到显示的特定行

macros运行后

macros运行之前

嗨，我想写的VBA代码的图像中显示的是一个乘法表。 我知道如何使用for循环，如果它只是在for循环中使用单元格引用和乘法，但我试图从我迄今为止直接工作，因为这是我的功课需要。 我的VBA代码如下

Sub Macro1() Range("C5:F5").Select Selection.AutoFill Destination:=Range("C5:F9"), Type:=xlFillDefault Range("C5:F9").Select Range("B5", Range("B4").End(xlDown)).ClearContents For rw = 1 To Range("B2").Value Cells(rw + 4, 2) = rw Next rw End Sub 

我的for循环计算取决于单元格B2中的数字的行号，我有代码到目前为止复制4列C到F乘法的公式，并将其拖动到一个随机的行。 但是我需要的是让代码允许复制4个单元格粘贴到列B中显示的最后一行。例如，如果行数是10，列之间的所有单元格都会填满，但您可以看到它没有的图像。 此外，请注意我试图保持固定的列，所以我不需要显示不同数量的列的代码。 我只需要将第一行中的公式复制并粘贴到最后一个取决于B2中数字的行号

我知道简单的循环乘法是

 Sub Macro1() Range("B4:FF4000").ClearContents For rw = 1 To Range("B2").Value For colctr = 1 To Range("B3").Value Cells(rw + 4, colctr + 1) = rw * colctr Next colctr Next rw End Sub 

但是我需要使用macros中的复制和粘贴，并以此结束单元格B2中行的值。