Sub QWERT()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'если в файле последняя дата находится сверху то считываем нужное количество строк (к примеру, 200)
'тут же с помощью аргумента функции Split, т.к. обрезка в данном случае производится снизу
'A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, vbNewLine, 200)

           Dim A() As String, NAME As String, Delimiter As String, i As Integer, j As Integer
           Dim C As String, T() As String, M() As Variant, Max As Date, Nm, TEM
           Application.ScreenUpdating = False
           Delimiter = ","
           NAME = ActiveWorkbook.Path & "\totalpc.csv"
                    
'------------------------------------------считываем в массив файл totalpc.csv построчно ()
A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, vbNewLine)

'по колич. запятых в строке А() определяем количество столбцов будущего двумерного массива
C = UBound(Split(A(i), Delimiter))
'---------------------------------------определяем (устанавливаем)размер двумерного массива
ReDim M(UBound(A), C)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-------Формирование двумерного массива с подготовкой Столбца Даты к последующей Сортировке
           For i = 2 To UBound(A) - 1  '---------------идём по всем строкам А(), не трогая заголовок
                          '---------------------------DATE  CALLS PUTS  TOTAL P/C Ratio

             T = Split(A(i), Delimiter) '--------------------разбиваем по столбцам строки массива A()
                          '-----------------------------результат помещаем в массив Т()
             For j = 0 To C
                 M(i - 2, j) = T(j)     '------------------------------заполняем двумерный массив М()
             Next j
'----------определяем Формат Даты, т.е. 1-ого Столбца для последующей Корректной Сортировки
             If IsDate(M(i - 2, 0)) Then
             T = Split(M(i - 2, 0), "/"): M(i - 2, 0) = DateSerial(T(2), T(0), T(1))
             End If
           Next i
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'--- Сортировка двумерного массива ---------------------------------------------------------
           For i = 1 To UBound(A) - 1
               Max = M(i, 0)
               Nm = i
                 For j = i + 1 To UBound(A)
                     If Max < M(j, 0) Then
                        Max = M(j, 0): Nm = j
                     End If
                 Next j

                 For j = 0 To C
                     TEM = M(i, j): M(i, j) = M(Nm, j): M(Nm, j) = TEM
                 Next j
               M(i, 0) = Format(M(i, 0), "dd.mm.yyyy")
           Next i
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim NumRows As Integer
NumRows = 150 'для вставки значения именнованной ячейки с листа Excel или пользовательской формы

M = Application.Transpose(M) 'транспон-ем массив, для возможности изменить колич. строк массива
ReDim Preserve M(1 To UBound(M), 1 To NumRows) 'изменяем колич.строк массива через второй элемент
M = Application.Transpose(M) '----возвращаем массив в прежнее состояние с нужным количеством строк

'-------------------------------------------------------------------------------выгружаем на лист
Worksheets("Лист1").Cells.ClearContents
Worksheets("Лист1").Range("A1").Resize(UBound(M, 1), UBound(M, 2)).Columns(1).NumberFormat = "dd.mm.yyyy"
Worksheets("Лист1").Range("A1").Resize(UBound(M, 1), UBound(M, 2)) = M
Application.ScreenUpdating = True
End Sub

Sub QWERT()

          Dim A() As String, NAME, Delimiter, i, J, C, T() As String, M(), Max As Date, Nm, TEM

          Delimiter = ","
          NAME = ActiveWorkbook.Path & "\totalpc.csv"
'    читаем в массив строки
          A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, vbNewLine)
          C = UBound(Split(A(i), Delimiter))
               
          Dim STROK As Long, L
          STROK = InputBox("Скока строк из " & UBound(A) - 3 & " с конца списка наадо вывести без 3 строк шапки?", "", 150)
'     STROK = IIf(UBound(A) < 150, UBound(A), 150)
               
          ReDim M(1 To STROK, C)
          For i = UBound(A) - 1 To UBound(A) - STROK Step -1 ' по всем строкам
             L = L + 1
              T = Split(A(i), Delimiter) ' разбиваем по элементам
                 For J = 0 To C
                     M(L, J) = T(J)
                 Next J
                 If IsDate(M(L, 0)) Then: T = Split(M(L, 0), "/"): M(L, 0) = DateSerial(T(2), T(0), T(1))
          Next i

          'cортировка
          For i = 1 To UBound(M)
             Max = M(i, 0)
             Nm = i
                  For J = i + 1 To UBound(M)
                      If Max < M(J, 0) Then
                          Max = M(J, 0)
                          Nm = J
                      End If
                  Next J
                  For J = 0 To C
                      TEM = M(i, J)
                      M(i, J) = M(Nm, J)
                      M(Nm, J) = TEM
                  Next J
               M(i, 0) = Format(M(i, 0), "dd.mm.yyyy")
          Next i
          Лист2.Cells.ClearContents
          Лист2.Range("A1").Resize(UBound(M), UBound(M, 2) + 1) = M
          MsgBox "ok", 64, ""
End Sub

     Dim STROK As Long, L
'     для проверок строку
'       STROK = InputBox("Скока строк из " & UBound(A) - 3 & " с конца списка наадо вывести без 3 строк шапки?", "", 150)

'     заменить на блок с проверками
        TEM = InputBox("Скока строк из " & UBound(A) - 3 & " с конца списка наадо вывести без 3 строк шапки?", "", 150)
        If TEM = "" Then Exit Sub ' нажали отмена
        If IsNumeric(TEM) Then
           STROK = TEM
           If STROK < UBound(A) Then Exit Do
        End If
        Loop
           
'     STROK = IIf(UBound(A) < 150, UBound(A), 150)

Sub QWERT_2()
        Dim A() As String, NAME, Delimiter, i, J, C, T() As String, M()       
        Delimiter = ","
        NAME = ActiveWorkbook.Path & "\totalpc1000.csv" 'в файле - 1000 строк
' читаем в массив строки
        A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, vbNewLine)
        C = UBound(Split(A(i), Delimiter))
        Application.ScreenUpdating = False
        Dim STROK As Long, L
        STROK = 300

        ReDim M(STROK, C)
          T = Split(A(2), Delimiter) ' Добавляем Шапку из строки A(2): DATE  CALLS PUTS  TOTAL P/C Ratio
            For J = 0 To C
                M(0, J) = T(J)
            Next J
              
        For i = UBound(A) - 1 To UBound(A) - STROK Step -1 'из строк массива A() создаём двумерный массив M()
            L = L + 1
            T = Split(A(i), Delimiter)
            For J = 0 To C
                M(L, J) = T(J)
            Next J
            If IsDate(M(L, 0)) Then: T = Split(M(L, 0), "/"): M(L, 0) = DateSerial(T(2), T(0), T(1))
        Next i

        Лист2.Cells.ClearContents
        Лист2.Range("A1").Resize(UBound(M), UBound(M, 2) + 1) = M
        Application.ScreenUpdating = True
End Sub

Private Type Свеча
Date_ As Date
CALLS As Double
PUTS As Double
Total As Double
Ratio As Double
End Type

Sub ReadCsv()
Dim R
R = CsvToarray("d:\totalpc.csv")
Range("A1").Resize(UBound(r) + 1, UBound(R, 2) + 1) = R

End Sub
Private Function CsvToarray(Fname As String)
Dim Свеча() As Свеча, Last As Long, Z As Variant, s As String, Rez As Variant
Last = -1
Set FSO = CreateObject("scripting.filesystemobject") '--- читаем текст из выбранного файла
Set ts = FSO.OpenTextFile(Fname, 1, True)
Do Until ts.AtEndOfStream
s = Replace(ts.ReadLine, " ", "")
Z = Split(s, ",")
If IsDate(Z(0)) Then
Last = Last + 1
ReDim Preserve Свеча(Last)
' Свеча(Last).Date_ = CDate(Z(0)) Заменил строку
   Свеча(Last).Date_ = Format(Z(0), "mm.dd.yy")
Свеча(Last).CALLS = Val(Z(1))
Свеча(Last).PUTS = Val(Z(2))
Свеча(Last).Total = Val(Z(3))
Свеча(Last).Ratio = Val(Z(4))
End If
Loop
ts.Close
Set FSO = Nothing
Set ts = Nothing
Bubble Свеча
ReDim Rez(UBound(Свеча) + 1, 4)
Rez(0, 0) = "DATE"
Rez(0, 1) = "CALLS"
Rez(0, 2) = "PUTS"
Rez(0, 3) = "Total"
Rez(0, 4) = "Ratio"

For n = 0 To UBound(Свеча)
Rez(n + 1, 0) = Свеча(n).Date_
Rez(n + 1, 1) = Свеча(n).CALLS
Rez(n + 1, 2) = Свеча(n).PUTS
Rez(n + 1, 3) = Свеча(n).Total
Rez(n + 1, 4) = Свеча(n).Ratio
Next
CsvToarray = Rez
End Function

Private Sub Bubble(ByRef List() As Свеча)
Dim First As Integer, Last As Long
Dim i As Long, j As Long
Dim Temp As Свеча
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i).Date_ > List(j).Date_ Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub