Pegar datos con Autocompletar en VBA

Tengo el siguiente código que copy la última columna y la pega en la siguiente columna vacía y simple. Sin embargo, necesito que la columna pegada se incremente (con autocomplete), en mi caso, con la date. Enero> febrero> marzo y así sucesivamente. Hoy se mantiene con los datos fijos.

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