Cannot run vba code on another sheet

[Ghesselink]

Hello,

I made a button to run the following via code on another sheet (the sheet where the button is in another one called 'input'). However, when I run the code it does only seem to affect the 'Input' sheet.
I do not see what goes wrong, anyone has an idea?

Thanks in advance,

Sub Extend()
'
' Extend Macro
'
With Worksheets("Output1")    
 Range("B2").AutoFill Destination:=Range("B2").Resize(Range("Input!G8").End(xlDown).Row - 1)  
 Range("A2").AutoFill Destination:=Range("A2").Resize(Range("Input!G8").End(xlDown).Row - 1) 
 Range("E2").AutoFill Destination:=Range("E2").Resize(Range("Input!G8").End(xlDown).Row - 1)  
 Range("F2").AutoFill Destination:=Range("F2").Resize(Range("Input!G8").End(xlDown).Row - 1)    
 Range("G2").AutoFill Destination:=Range("G2").Resize(Range("Input!G8").End(xlDown).Row - 1)   
 Range("H2").AutoFill Destination:=Range("H2").Resize(Range("Input!G8").End(xlDown).Row - 1) 
 Range("I2").AutoFill Destination:=Range("I2").Resize(Range("Input!G8").End(xlDown).Row - 1)
End With  
  
End Sub

 

[6StringJazzer]

Everywhere you have Range on the first time each line, change it to .Range.

In this situation it would also be better to change

Range("Input!G8")

to

Worksheets("Output1").Range("G8")

but not absolutely necessary.

 

[Ghesselink]

I tried, but it still does not work unfortunately.
The code is this now:
Got any idea?

With Worksheets("Output1")
    .Range("B2").AutoFill Destination:=.Range("B2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("A2").AutoFill Destination:=.Range("A2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("E2").AutoFill Destination:=.Range("E2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("F2").AutoFill Destination:=.Range("F2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("G2").AutoFill Destination:=.Range("G2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("H2").AutoFill Destination:=.Range("H2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
    .Range("I2").AutoFill Destination:=.Range("I2").Resize(.Range("Input!G8").End(xlDown).Row - 1)
End With
    
End Sub

 

[Fluff]

Try

Dim Rws As Long
Rws = Range("Input!G8").End(xlDown).Row - 1
With Worksheets("Output1")
    .Range("B2").AutoFill Destination:=.Range("B2").Resize(Rws)
    .Range("A2").AutoFill Destination:=.Range("A2").Resize(Rws)
    .Range("E2").AutoFill Destination:=.Range("E2").Resize(Rws)
    .Range("F2").AutoFill Destination:=.Range("F2").Resize(Rws)
    .Range("G2").AutoFill Destination:=.Range("G2").Resize(Rws)
    .Range("H2").AutoFill Destination:=.Range("H2").Resize(Rws)
    .Range("I2").AutoFill Destination:=.Range("I2").Resize(Rws)
End With
    
End Sub

 

[Ghesselink]

That solution works well, thanks a lot

 

[Fluff]

Glad we could help & thanks for the feedback