Extend Series Right

[Marhier]

Hi everyone.
Got a small problem I'm really struggling to get my head around.

Is there a VBA code that lets me take the active cell and extend the series to the next cell on the right, just like you'd do with your mouse manually as shown in the following picture:

<a href="https://imgbb.com/"><img src="https://thumb.ibb.co/nPw6fL/Test.jpg" alt="Test" border="0"></a>


I've got a bit of code that inserts a column, but can't figure out what to put next:

Sub AddWeek()
Application.Goto Reference:="InsWeekCol"
Selection.Insert Shift:=xlToRight
Range("A5").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
[B]?????????[/B]
End Sub

All help is greatly appreciated.
Thank you.
Regards
Marhier.

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG20Nov14
[COLOR="Navy"]With[/COLOR] Range("A1")
.Value = "WK1"
.AutoFill Destination:=Range("A1:Z1"), Type:=xlFillSeries
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Marhier]

I managed to get that to work, thank you.
\m/

Regards
Marhier

 

[MickG]

You're welcome