Autofill not applied

[Saab95]

Hi,

Sorry me again for my defense I'm a beginner...

In the below, 'value' and 'formula' are correctly added in the required sheet.However the part in red is ignored. Help would be really appreciated.

Sub Insert_ECB()
With Sheets("ECB")
.Range("AC1").Value = "ABC"
.Range("AC2").Formula = "=Z2/2"
Dim lastRow As Long
lastRow = Range("Z" & Rows.Count).End(xlUp).Row
Range("AC2").AutoFill Destination:=Range("AC2:AC" & lastRow)
End With
End Sub

 

[Fluff]

It needs to be

Sub Insert_ECB()
With Sheets("ECB")
.Range("AC1").Value = "ABC"
.Range("AC2").Formula = "=Z2/2"
Dim lastRow As Long
   lastRow = .Range("Z" & Rows.Count).End(xlUp).Row
   .Range("AC2").AutoFill Destination:=.Range("AC2:AC" & lastRow)
End With
End Sub

Note the . infront of each Range

 

[Saab95]

It needs to be

Sub Insert_ECB()
With Sheets("ECB")
.Range("AC1").Value = "ABC"
.Range("AC2").Formula = "=Z2/2"
Dim lastRow As Long
   lastRow = .Range("Z" & Rows.Count).End(xlUp).Row
   .Range("AC2").AutoFill Destination:=.Range("AC2:AC" & lastRow)
End With
End Sub

Note the . infront of each Range

Thanks, for my knowledge why we sometimes put this dot (.) and sometimes not before Range ?

 

[Fluff]

The dot at the front signifies that it's part of the With Statement.