você pode tentar:
lngLastRow= ActiveSheet.UsedRange.Rows.Count
Selection.AutoFill Destination:=Range("Z2:Z" & lnglastrow)
mas sugiro que você evite usar o objeto Selection, pois há um impacto significativo no desempenho ao selecionar as células. Em vez disso, basta usar o objeto Range
para apontar para as células