Excel VBA自动填充列

Question

我想编辑下面的自动填充代码的范围，但我不知道如何。

'find last used cell in the row to the right 
Range("B59").End(xlToRight).Select 

'auto fill the formula for "Total TV" 
ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1)) 

目前，代码在一行中找到最后一个有效的单元格，然后它自动向右侧填充一个单元格。

我想要做什么：

我会找到的最后一个有效的单元格，然后选择活动单元格，并从3行中的细胞在它下面太然后自动填充一个单元格的权利。

在图片它应该是这样的：

1. 找到最后一个单元格有效行59：

选择活动单元格细胞3行以下：

自动填充一个单元向右

Answer 1

这里是单向的。无需选择

Sub x() 

Dim r As RANGE 

Set r = RANGE("B59").End(xlToRight) 
r.Resize(4).AutoFill r.Resize(4, 2) 

End Sub