How to sort csv file first before extracting rows of data from it

I have this code that works fine before, now the source csv file data is arranged in descending order, how to add code to sort the csv file to ascending order first, before extracting the last no. rows of data,

some csv are having header in row 1 (Date Time ......) and some don't have header, how to ignore/delete the header before applying the codes.

How to modify the following code, thanks

Option Explicit

Sub ConvertCSVs()

    Dim wkbDest As Workbook
    Dim wksDest As Worksheet
    Dim numrows As Integer
    Dim startrows As Integer
    Dim linrows As Integer
    Dim strPath As String
    Dim strFile As String
    Dim strData As String
    Dim X As Variant
    Dim Cnt As Long
    Dim r As Long
    Dim c As Long
    Dim i As Long

    Application.ScreenUpdating = False

    strPath = "D:\Docs\CSV\"                        ' Change Path of files
    
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
    strFile = Dir(strPath & "*.csv")
      
    Do While Len(strFile) > 0
    
        Cnt = Cnt + 1
        
        If Cnt = 1 Then
            Set wkbDest = Workbooks.Add(xlWBATWorksheet)
        End If
    
        Open strPath & strFile For Input As #1
       
        numrows = 0
            Do Until EOF(1)
                Line Input #1, strData
                numrows = numrows + 1
            Loop
            
        Close #1

    startrows = numrows - 1000                               'Extract last 1000 Rows from CSV files

        Open strPath & strFile For Input As #1
        
            Set wksDest = wkbDest.Worksheets.Add
            
            wksDest.Name = Left(strFile, InStr(1, strFile, ".csv") - 1)
            
            r = 2
            c = 1
        linrows = 0
            Do Until EOF(1)
                Line Input #1, strData
                linrows = linrows + 1
                If linrows > startrows Then
                    X = Split(strData, ",")
                    For i = LBound(X) To UBound(X)
                            Cells(r, c).Value = X(i)
                            c = c + 1
                    Next i
                    r = r + 1
                    c = 1
        End If
            Loop
            
        Close #1
        
        strFile = Dir
        
    Loop
    
   If Cnt > 0 Then
        Application.DisplayAlerts = False
        wkbDest.Worksheets(wkbDest.Worksheets.Count).Delete
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        MsgBox "Completed...", vbInformation
    Else
        Application.ScreenUpdating = True
        MsgBox "No CSV files found...", vbExclamation
    End If
    
End Sub

Start at the bottom and fill upwards.

Option Explicit
Sub ConvertCSVs()
    Dim wkbDest As Workbook
    Dim wksDest As Worksheet
    Dim numrows As Integer
    Dim startrows As Integer
    Dim linrows As Integer
    Dim strPath As String
    Dim strFile As String
    Dim strData As String
    Dim X As Variant
    Dim Cnt As Long
    Dim r As Long
    Dim c As Long
    Dim i As Long

    Application.ScreenUpdating = False

    strPath = "c:\downloads.new\"                        ' Change Path of files
    
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
    strFile = Dir(strPath & "*.csv")
      
    Do While Len(strFile) > 0
    
        Cnt = Cnt + 1
        
        If Cnt = 1 Then
            Set wkbDest = Workbooks.Add(xlWBATWorksheet)
        End If
    
        Open strPath & strFile For Input As #1
       
        numrows = 0
            Do Until EOF(1)
                Line Input #1, strData
                numrows = numrows + 1
            Loop
            
        Close #1

    startrows = 1000                          'Extract last 1000 Rows from CSV files

        Open strPath & strFile For Input As #1
        
            Set wksDest = wkbDest.Worksheets.Add
            
            wksDest.Name = Left(strFile, InStr(1, strFile, ".csv") - 1)
            
            r = startrows
            c = 1
        linrows = 0
            Do Until EOF(1)
                Line Input #1, strData
                linrows = linrows + 1
                If linrows > startrows Then
                    X = Split(strData, ",")
                    For i = LBound(X) To UBound(X)
                            Cells(r, c).Value = X(i)
                            c = c + 1
                    Next i
                    r = r - 1
                    If r = 0 Then Exit Do
                    c = 1
                End If
            Loop
            
        Close #1
        
        strFile = Dir
        
    Loop
    
   If Cnt > 0 Then
        Application.DisplayAlerts = False
        wkbDest.Worksheets(wkbDest.Worksheets.Count).Delete
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        MsgBox "Completed...", vbInformation
    Else
        Application.ScreenUpdating = True
        MsgBox "No CSV files found...", vbExclamation
    End If
    
End Sub

thanks for help,

when i run the code all sheets return empty. I want to get the data of last/newest 1000 rows. not starting from 1000 row


so i think the code would be to get the first 1000 rows now, as they are now in descending order, and then sort them to ascending order, how is the code to apply

Unfortunately, since I don't know what the date format is, or where it might be in the line, I can't test for its existence. Also, I can't code for the sort because we don't have a sample file, since it seems that there might be a different number of columns in each row after the SPLIT operation.
You could read the first 1000 lines with only one Open/read code such as:

    Open strPath & strFile For Input As #1
    Set wksDest = wkbDest.Worksheets.Add
    wksDest.Name = Left(strFile, InStr(1, strFile, ".csv") - 1)

    NUMROWS = 0
    r = 0
    
    Do Until EOF(1)
        r = r + 1
        c = 1
        Line Input #1, strData
        NUMROWS = NUMROWS + 1
        If NUMROWS > 1000 Then Exit Do
        
        X = Split(strData, ",")
        For i = LBound(X) To UBound(X)
            Cells(r, c).Value = X(i)
            c = c + 1
        Next i
    Loop
    Close #1
    
    {sort code would go here}