Set Target = Selection
    With Target
        For Each e In Target
            If e=??? Then
                debug.print e.value
            End If
        Next e
    End With

Public Sub csv2xls()
    Const path_id As String = "c:\берем отсюда"
    Const path_out As String = "c:\кладем сюда"
    Dim fso, file_
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each file_ In fso.GetFolder(path_id).Files
        If Right(file_.Path, 3) = "csv" Then
            With Workbooks.Open(file_.Path)
                .SaveAs path_out & "\" & Left(file_.Name, Len(file_.Name) - 4), FileFormat:=xlOpenXMLWorkbook
                .Close False
            End With
        End If
    Next file_
End Sub

Public Sub Del()

    Dim ycount As Long
    With ActiveSheet
        .Sort.SortFields.Clear
        .Sort.SetRange .Cells(3, 1).CurrentRegion
        .Sort.SortFields.Add Key:=.Cells(3, 7), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Cells(3, 3), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Cells(3, 2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
        ycount = 4
        Do Until .Cells(ycount, 7) = ""
            If .Cells(ycount, 7) = .Cells(ycount + 1, 7) Then
                .Rows(ycount).Delete
            Else
                If .Cells(ycount, 4) = "ВЫХОД ИЗ ЗОНЫ" Then
                    .Rows(ycount).Delete
                Else
                    ycount = ycount + 1
                End If
            End If
        Loop
    End With
End Sub