如何在代码中输入范围参数？

Question

这里的代码一次只做一列，这很棒，而且确实起作用。但是，我希望它更高效，因为我希望代码看到一系列列以完成所有四个列中的任务。您知道我如何解决此代码吗？

我尝试了许多导致我想到这个问题的事情。 （请参阅先前的问题。）在网络上和通过同事可以梳理很多信息，而找到可以满足独特任务的特定内容只会增加研究。我的最新代码如下。

Sub FillDownCol()

  Dim Area As Range, LastRow As Long

  On Error Resume Next
  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
           SearchDirection:=xlPrevious, _
           LookIn:=xlFormulas).Row
    For Each Area In ActiveCell.EntireColumn(1).Resize(LastRow). _
           SpecialCells(xlCellTypeBlanks).Areas
    Area.Value = Area(1).Offset(-1).Value
  Next
End Sub

我希望添加一个范围参数或代码，使其能够读取以接受多列同时在页面上填充的内容。任何意见，建议，想法，回应都将受到欢迎。 ：）