Dim con As ADODB.Connection

    Set con = New ADODB.Connection

eğer referanssız kullanmak isterseniz yukardaki 2 satırı silip aşağıdaki satırı ekleyebilirsiniz.

Set con = CreateObject("adodb.connection")

kodunu kullanmayı deneyebilirsiniz
sıra numarası derken kast ettiğiniz tam olarak ne?
@feraz beyin önerdiği

        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

kodunu kullandınız mı?

---

kodu aşağıdaki gibi düzenleyip dener misiniz?
Not: Referansa gerek yok
sıralama için æferaz hocamın kodu kullanılmıştır

    Set con = CreateObject("adodb.connection")

    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes;"""

    

    yol = ThisWorkbook.Path & Application.PathSeparator

    yol2 = Dir(yol & "*xlsx")

    

    With ThisWorkbook.Sheets("TümVeri")

        .Range("A2:Q" & Rows.Count).Clear

        Do Until yol2 = ""

             txtSql = "INSERT INTO  [TümVeri$]  " & _

                      "SELECT  * " & _

                      "FROM [MEMURLAR$] IN '" & yol & yol2 & "'[EXCEL 8.0;] " & _

                      "where ([SİCİL] Is Not Null);"

             con.Execute txtSql

        

        yol2 = Dir

        Loop

        

    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

    End With



    con.Close: Set con = Nothing



    MsgBox "Bitti", vbInformation, "Bilgi"