VBA: Autofill to last row not working

[ObiWanBaloney]

Sub ApplyVlookupFormulatoColumn()
'
' ApplyVlookupFormulatoColumn Macro
'


    ActiveCell = _
        "=IFERROR(VLOOKUP(E2,'ORDER TEMPLATE'!A:B,2,FALSE),0)"
    
    Dim lastrow As Long
     
    lastrow = Worksheets("ALL ITEMS").Range("A2").End(xlDown).Row
    With Worksheets("ALL ITEMS").Range(ActiveCell.Address)
[B]        .AutoFill Destination:=Range(ActiveCell.Address & lastrow&)[/B]
    End With
  
End Sub

Bolded part is not working. This is intended to work off whatever cell is selected, hence the activecell.address wherever it appears. Anyone know what to fix in this situation?

 

[VoG]

Try

.AutoFill Destination:=.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(lastrow, ActiveCell.Column))

 

[Rick Rothstein]

Try

.AutoFill Destination:=.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(lastrow, ActiveCell.Column))

(Untested) If I am not mistaken, I think the red highlighted text could be replaced with just this...

ActiveCell.Address

 

[VoG]

You know that I like the verbose solutions Rick

 

[ObiWanBaloney]

Thanks for the response guys! I'll definitely give it a try when I'm back to work =)

 

[ObiWanBaloney]

Still getting the "error 1004 Autofill method of Range class failed".

 

[VoG]

Try

Sub ApplyVlookupFormulatoColumn()
'
' ApplyVlookupFormulatoColumn Macro
'


    ActiveCell.Formula = _
        "=IFERROR(VLOOKUP(E2,'ORDER TEMPLATE'!A:B,2,FALSE),0)"
    
    Dim lastrow As Long
     
    lastrow = Worksheets("ALL ITEMS").Range("A2").End(xlDown).Row
    With Worksheets("ALL ITEMS")
        ActiveCell.AutoFill Destination:=.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(lastrow, ActiveCell.Column))
    End With
  
End Sub

 

[ObiWanBaloney]

Try

Sub ApplyVlookupFormulatoColumn()
'
' ApplyVlookupFormulatoColumn Macro
'


    ActiveCell.Formula = _
        "=IFERROR(VLOOKUP(E2,'ORDER TEMPLATE'!A:B,2,FALSE),0)"
    
    Dim lastrow As Long
     
    lastrow = Worksheets("ALL ITEMS").Range("A2").End(xlDown).Row
    With Worksheets("ALL ITEMS")
        ActiveCell.AutoFill Destination:=.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(lastrow, ActiveCell.Column))
    End With
  
End Sub

Works! Thanks a bunch =D