怎么在批量导入CSV文件前，对CSV进行删除行的处理

本人做网优工作的，需要对大量的CSV文件进行合并处理，但是CSV文件取出来后，不规整，格式如下，

现在需要删除前面的6行，和最后一行，然后再把多给CSV数据导入到ACCESS,请问能实现吗？

单独用

Private Sub btnIn2_Click()
    Dim strSQL As String
    Dim strSelectFile As String
    Dim strPath       As String
    Dim strFileName   As String
    With Application.FileDialog(3)
        .AllowMultiSelect = True
        .InitialFileName = ""
        .Filters.Clear
        .Filters.Add "CSV文件", "*.CSV"
      If .Show = -1 Then
            For I = 1 To .SelectedItems.Count
            strSelectFile = .SelectedItems.Item(I)
            strPath = Left(strSelectFile, InStrRev(strSelectFile, "\"))
            strFileName = Mid(strSelectFile, InStrRev(strSelectFile, "\") + 1)
            
            
           strSQL = "INSERT INTO 测试表 SELECT * FROM [TEXT;FMT=CSV;DELIMITED;HDR=YES;DATABASE=" & strPath & "].[" & strFileName & "];"
                     
            DoCmd.RunSQL strSQL
            Next
        Else
           Exit Sub
        End If
可以把规整好的CSV文件导入ACCESS 测试表中，

现在需要在代码中加入删除行的代码，希望大神门帮帮忙，谢谢！