Przeciąganie komórek w Excelu

Hej. Mam małe pytanie. Jak SZYBKO przeciągnąć zawartości komórek? Taki oto przykład:

w A1 mam wartość 1, w A2=2 A3=3 itd. Jak to szybko przeciągnąć dajmy na to do 20 tysięcy?

Zaznacz jako blok komórki A1 i A2, najeżdżasz kursorem na kwadrat w prawym rogu zaznaczenia i trzymając wciśnięty lewy przycisk myszy przeciągasz w dół aż do interesującej cię komórki w której znajdzie się liczba 20 tyś.

Ten sposób znam. W zasadzie to chodziło mi o przeciąganie w LibreOffice. Napisałem w temacie w excelu, bo myślałem że to nie ma różnicy. Jednak jest i to kolosalna. W excelu idzie szybciutko. Natomiast w Calcu to jest jakaś masakra. Da się z tym coś zrobić? Przecież jakbym tak chciał to 20 tys, to by mi to zajęło ze 2 minuty.

A jeśli dla kogoś za dużo tego ciągnięcia, to może sobie napisać makro które wykona to automatycznie. Np.

Sub Makro1()

 Range("A1").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "2"

    Range("A1:A2").Select

        Selection.AutoFill Destination:=Range("A1:A20000"), Type:=xlFillDefault

   End Sub