Using Autofill knowing row and column number

I want to do the programmatic equivalent of dragging the fill handle down
one row. I know the row and column number of the destination cell. I tried:

..cells(Nextrow - 1, 2).autofill destination=.cells(Nextrow, 2)

but I got a range error. What's the correct syntax? Also, what's the syntax
if I want to fill a range of cells (eg, columns 12 to17)?

--
Thanks,
Fred

Sub AA()
Dim NextRow As Long
Dim rng As Range
NextRow = 10
With ActiveSheet
Set rng = .Range(.Cells(NextRow - 1, 2), .Cells(NextRow, 2))
.Cells(NextRow - 1, 2).AutoFill Destination:=rng
End With
End Sub

--
Regards,
Tom Ogilvy




"Fred Smith" <[email protected]> wrote in message
news:%[email protected]...
> I want to do the programmatic equivalent of dragging the fill handle down
> one row. I know the row and column number of the destination cell. I
tried:
>
> .cells(Nextrow - 1, 2).autofill destination=.cells(Nextrow, 2)
>
> but I got a range error. What's the correct syntax? Also, what's the
syntax
> if I want to fill a range of cells (eg, columns 12 to17)?
>
> --
> Thanks,
> Fred
>
>
>
>

How about:

Option Explicit
Sub testme01()
Dim NextRow As Long
NextRow = 3 'test data only
With ActiveSheet
.Cells(NextRow - 1, 2).AutoFill _
Destination:=.Cells(NextRow - 1, 2).Resize(2, 1)
End With
End Sub



Fred Smith wrote:
>
> I want to do the programmatic equivalent of dragging the fill handle down
> one row. I know the row and column number of the destination cell. I tried:
>
> .cells(Nextrow - 1, 2).autofill destination=.cells(Nextrow, 2)
>
> but I got a range error. What's the correct syntax? Also, what's the syntax
> if I want to fill a range of cells (eg, columns 12 to17)?
>
> --
> Thanks,
> Fred

--

Dave Peterson