Autofill in another workbook

[Mike2]

Hello,

I would like to find out how to autofill a column in another workbook.

Here is my code so far:

Sub Task1 ()

    Set wb4 = Workbooks("Task1")
    Set ws4 = wb4.Sheets("Sheet1")
 
    'code lines for copy and paste from Workbook "A" to Workbook "Task1"
 
     LstRow = ws4.Range("A" & Rows.Count).End(xlUp).Row
     ws4.Range("N3").Formula = "=L3-M3"
     ws4.Range("O3").Formula = "=N3*G3"
     ws4.Range("N3:O3").AutoFill Destination:=Range("N3:O" & Lstrow)
 
 End Sub

The macro gives me a Run Time error '1004' Method 'Range' of Object'_Global' failed.
Can someone please help to explain what i am missing in my code?

Thank you.

 

[Fluff]

You haven't specified the sheet on the destination range.

 

[Mike2]

Hi Fluff,
I thought I have as Range ("N3:O" & Lstrow).
The formula is on cell N3 and O3 and I wanted to fill them down to the last row of data in Workbook Task1 with Workbook A being Active.

 

[Mike2]

The sheet is ws.range....

 

[Mike2]

The sheet is ws4.range...which was declare at top of codes

 

[Fluff]

You are missing the ws4 from the destination, so it's looking at the activesheet, it should be

ws4.Range("N3:O3").AutoFill Destination:=ws4.Range("N3:O" & Lstrow)

 

[Mike2]

Ah, Ok I see...thank you greatly for your help.

 

[Fluff]

You're welcome & thanks for the feedback