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

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" wrote in message
...
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