在VBA中使用自动填充粘贴数据

Question

我有下面的代码复制最后填充的列并将其粘贴到下一个空的简单列中。但是我需要粘贴的列增加（使用自动填充），在我的情况下，使用日期。一月＆GT;二月和GT;三月等等。今天它坚持使用固定数据。

Sub Test()

Dim ws As Worksheet

Set ws = ActiveSheet
Dim rLastCell As Range
Dim LastCol As Integer

Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

LastCol = rLastCell.Column

ws.Columns(LastCol).Copy ws.Columns(LastCol + 1)

End Sub