ActiveCell.EntireColumn.Select for Autofill

[yadiacho]

I have some problems, thanks for helping me.

Sub autoFill()
    Columns("BB:BB").Select
    Selection.autoFill Destination:=Columns("BB:BC"), Type:=xlFillDefault
    Columns("BB:BC").Select
    Range("BC4").Select
End Sub

I want to make Columns("BB:BC") as Dynamic using ActiveCell.Offset

I Try code like This :

            ActiveCell.EntireColumn.Select
            Selection.autoFill Destination:=Columns(1, ActiveCell.Column), Type:=xlFillDefault

I have error on it.

 

[JackDanIce]

Welcome to the board. Try

ActiveCell.EntireColumn.AutoFill Destination:=ActiveCell.EntireColumn.Resize(, 2), Type:=xlFillDefault

 

[yadiacho]

Thanks Jack..

Awesome. Working great now.

 

[JackDanIce]

You're welcome.