(23/04/2021, 00:11)yyhy yazdı: Sayın farez bey acaba sizde çalışan 00 -Tüm Veri dosyayı buraya ekyebilirmisiniz? Sayın @berduş beyin attığı kodu da çalıştıramadım.

Tüm dosyaları ekledim abey.A sütununda veriolmasın  derseniz alttaki kodları silin.

        If WorksheetFunction.CountA(.Range("B2:B" & Rows.Count)) > 0 Then

            son = .Range("B" & Rows.Count).End(3).Row

            .Range("A2").Value = 1

          .Range("A2:A" & son).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=son

        End If