AutoFill Code Problems - Can you help

[CoraG]

Worksheets("QTR1").Activate

Range("B6").Copy
Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 1)
Application.CutCopyMode = False

ActiveCell.AutoFill Range(ActiveCell.ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1))

I keep getting the error, '438' Object doesn't support this property or method!

 

[Joe4]

This line does not look structured properly:

[COLOR=#333333]Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 1)[/COLOR]

Which sheet are you trying to paste to? "QTR1" or "IMPROPER DETAIL"?
Not sure why you have two different sheet references on that paste line.

 

[Norie]

What range are you trying to autofill here?

ActiveCell.AutoFill Range(ActiveCell.ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1))

ActiveCell doesn't have an ActiveCell property.

 

[CoraG]

Column A but I am having problems where my code isn't finding the next empty row to paste in column A & B now...

Sub UpdateQTR()

Dim LastRow As Long

LastRow = Sheets("IMPROPER DETAIL").Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Row

Dim IPrange As Range

Set IPrange = ActiveSheet.Range("A:A")

Dim erow As Long

erow = Sheets("IMPROPER DETAIL").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

Dim erowb As Long

erowb = Sheets("IMPROPER DETAIL").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row

Dim erowc As Long

erowc = Sheets("IMPROPER DETAIL").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row

Do Until IP = ""

Worksheets("QTR1").Activate

Range("C20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 2)

Application.CutCopyMode = False

Worksheets("QTR1").Activate

Range("D20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erowb, 4)

Application.CutCopyMode = False

Worksheets("QTR1").Activate

Range("E20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erowc, 5)

Application.CutCopyMode = False

Worksheets("QTR1").Activate

Range("B6").Copy

Sheets("QTR1").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 1)

Application.CutCopyMode = False

Range("A6").Select

ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1)), Type:=xlFillCopy

Range("A6").Select

Worksheets("QTR2").Activate

Range("C20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR2").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 2)

Application.CutCopyMode = False

Worksheets("QTR2").Activate

Range("D20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR2").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erowb, 4)

Application.CutCopyMode = False

Worksheets("QTR2").Activate

Range("E20").Select

ActiveCell.Offset(0, 0).Select

Range(Selection, Selection.End(xlDown)).Copy

Sheets("QTR2").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erowc, 5)

Application.CutCopyMode = False

Worksheets("QTR2").Activate

Range("B6").Copy

Sheets("QTR2").Paste Destination:=Sheets("IMPROPER DETAIL").Cells(erow, 1)

Application.CutCopyMode = False

ActiveSheet.Cells(erow, 1).Select

ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1)), Type:=xlFillCopy

Range("A6").Select

Loop

End Sub

<colgroup><col style="width:48pt" width="64"> </colgroup><tbody>
</tbody>

 

[CoraG]

Disregard the code... that is a different issue... I tried it but it gives me Object doesn't support this property or method.

 

[CoraG]

I tried it with a comma and I get something about merged cells having to be the same size but my sells are not merged. ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1)), Type:=xlFillCopy If I go back up to a couple of steps (F8) to check the code it works but on its own F5 it won't