Run-time error '1004': AutoFill method Range class failed

[fredycrouger]

Merhaba,

Asagidaki kod son satirda Run-time error '1004': AutoFill method Range class failed hatasi veriyor. Nasil duzeltebilirim acaba ?

Public Sub Autofiller()
Dim lastDate, lastRowFilled As Long
Range("A1").Select

lastDate = Range(Selection, Selection.End(xlDown)).Rows.Count
lastRowFilled = Range("C1").CurrentRegion.Rows.Count

Set SourceRange = Range("A" & lastDate)
Set fillRange = Range(Cells(lastDate, 1), Cells(lastRowFilled, 1))
SourceRange.AutoFill Destination:=fillRange

 

[Korhan Ayhan]

Tam olarak yapmak istediğiniz işlemi açıklar mısınız?

 

[fredycrouger]

Tam olarak yapmak istediğiniz işlemi açıklar mısınız?

Kod baska birisi tarafindan yazilmis ve hata veriyordu ben de duzeltmeyle ugrasmak yerine ayni isi yapan daha basit bir kod yazdim.

Tesekkurler.