Dynamic Autofilling

[omgeokid]

So I have to write a macro which automatically finds and extends a range which I have set to this

      Range(startcell, endcell).Select

into the next empty column, but for some reason when I try to do that with this line;

Selection.AutoFill Destination:=Range(startcell, endcell),lcol) Type:=xlFillDefault

i get a 1004 error. Any ideas? lcol is what I have set as the next empty column.

[Leith Ross]

Hello omgeokid,

You need to define a source range, a few cells that represent the fill sequence, and then include that in the destination. In the example below, the first 2 cells of the range are used to define the fill type.

  Dim Rng As Range

    Rng.Range(Cells(1, 1), Cells(2, 1)).AutoFill Rng