Google dal toto :
https://sk.soringpcrepair.com/how-au...rows-in-excel/
tak som to troška upravil
Do A4 zapíš 1, makro ulož do editora VBa.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A4").Activate
Range("A4").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=5000, Trend:=False
End Sub