Tady pokus o funkční kód, samozřejmě to hází chybu :(
Sub VyplniRadky()
Dim promena As Range
Set promena = sheets1.Range("B7") 'proměná si zapamatuje hodnotu v B7
Range("A19:A20").Select 'označí řádky, které chci "protáhnout"
Selection.AutoFill Destination:=Range("A19:A" & promena) 'autofill, od A19 do A & hodnota v B7
Range("A19:A" & promena).Select
End Sub