Excel Autofill Method of Range Class Failed

[Steve]

Trying to Use the Code below to autofill a selection. Error comes up when
executed, code is in a loop in which i is the number of the row.

Set sourceRange = Worksheets("Ref. PGW").Range(Sheets("Ref. PGW").Cells(i -
1, 8), Sheets("Ref. PGW").Cells(i - 1, 10))
Set fillRange = Worksheets("Ref. PGW").Range(Sheets("Ref.
PGW").Cells(i, 8), Sheets("Ref. PGW").Cells(i, 10))
sourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault

Thanks, Steve

[Bernie Deitrick]

Steve,

The autofiill method requires that the Destination Range includes the source range.

But, you could use

SourceRange.Copy FillRange

or

SourceRange.Copy SourceRange.Offset(1,0)

or

sourceRange.AutoFill Destination:=Range(sourceRange,fillRange), Type:=xlFillDefault

HTH,
Bernie
MS Excel MVP


"Steve" <Steve@discussions.microsoft.com> wrote in message
news:524F17C9-4B0B-4B64-BF62-49D5C0AF4A95@microsoft.com...
> Trying to Use the Code below to autofill a selection. Error comes up when
> executed, code is in a loop in which i is the number of the row.
>
> Set sourceRange = Worksheets("Ref. PGW").Range(Sheets("Ref. PGW").Cells(i -
> 1, 8), Sheets("Ref. PGW").Cells(i - 1, 10))
> Set fillRange = Worksheets("Ref. PGW").Range(Sheets("Ref.
> PGW").Cells(i, 8), Sheets("Ref. PGW").Cells(i, 10))
> sourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
>
> Thanks, Steve