Autofill değişken kullanmak

[omemo]

Aşağıdaki kodlarla A1-A20 arasına 1'den 20'ye kadar yazdırıyorum. Kodun çalışması için A1'e 1 ve A2'ye de 2 Yazmak gerekiyor.
Soru: A1 ve A2'ye bu değerleri yazmadan, başlangıç değerleri kod içinde değişken olarak tanımlanabilir/verilebilir mi.
Teşekkürler

Kod:
Sub Doldur()
Set Kaynak = Sheets("Sayfa1").Range("A1:A2")
Set Hedef = Sheets("Sayfa1").Range("A1:A20")
Kaynak.AutoFill Destination:=Hedef
End Sub

 

[Korhan Ayhan]

Alternatifler;

Sub Doldur()
    With Sheets("Sayfa1").Range("A1:A20")
        .Formula = "=ROW()"
        .Value = .Value
    End With
End Sub

Sub Doldur()
    Sheets("Sayfa1").Range("A1:A2") = Application.Transpose(Array(1, 2))
    Set Kaynak = Sheets("Sayfa1").Range("A1:A2")
    Set Hedef = Sheets("Sayfa1").Range("A1:A20")
    Kaynak.AutoFill Destination:=Hedef
End Sub

 

[Necdet]

Sub Makro1()
    Range("A1") = 5
    Range("A1:A20").DataSeries
End Sub

 

[Necdet]

Geç kalmışım alternatif olsun.

 

[omemo]

Teşekkürler,
Üç farklı çözüm, üç yeni bilgi.