Rango variable para fórmula AutoFill en Excel

Estoy trabajando con un archivo que tiene en la primera columna los meses transcurridos del año y abajo N filas que tienen una fórmula. Mi intención es hacer una macro que vaya a la ultima columna con datos, y la arrastre a una columna más. Es decir, si mi ultima columna es el mes de Abril (D1), cuando la arrastre, se autocomplete el mes de Mayo (E1) y así sucesivamente.

Cuando grabo una macro realizando la acción queda así:

Range("A1").Select
Selection.End(xlToRight).Select
Columns("D:D").Select
Selection.AutoFill Destination:=Columns("D:E"), Type:=xlFillDefault
Columns("D:E").Select
Range("E1").Select

El problema es que al mes siguiente, las columnas no serán DE ---> E sino E----> F

Necesito que ese rango del AutoFill sea variable, siempre tome la ultima columna con datos y la corra una columna más.

¿Me podrán ayudar con esto?