Sub del_files()
Dim sFiles As String
    sFiles = Dir("C:\Users\*******\Documents\unpack\" & "*")
    Do While sFiles <> ""
        If sFiles <> "lotout.txt" Then
            On Error Resume Next
            Kill ("C:\Users\*******\Documents\unpack\" & sFiles)
            On Error GoTo 0
            DoEvents
        End If
        sFiles = Dir
    Loop
    sFiles = Dir("C:\Users\*******\Documents\Backups\" & "*")
    Do While sFiles <> ""
        On Error Resume Next
        Kill ("C:\Users\*******\Documents\Backups\" & sFiles)
        On Error GoTo 0
        DoEvents
        sFiles = Dir
    Loop
End Sub

Sub del_files()
Dim sFolder As String, sFiles As String
    sFiles = Dir("C:\Users\*******\Documents\unpack\" & "*")
    'цикл по всем файлам в папке
    On Error Resume Next
    Do While sFiles <> ""
        If sFiles <> "lotout.txt" Then
            'удаляем файл
            Kill sFiles
            'на всякий случай передаем управление системе,
            'чтобы дождаться удаления
            DoEvents
        End If
        'получаем имя следующего файла в папке
        sFiles = Dir
    Loop
    sFiles = Dir()
    sFiles = Dir("C:\Users\*******\Documents\Backups\" & "*")
    On Error Resume Next
    Do While sFiles <> ""
        Kill sFiles
        RmDir sFiles
        DoEvents
        sFiles = Dir
    Loop
End Sub

    Do
        If DateBgn > DateEnd Then Exit Do
        strFldr = Year(DateBgn) & OneInTwo(Month(DateBgn)) & OneInTwo(Day(DateBgn))
        DateBgn = DateBgn + 1
        colFolder.Add strFldr
    Loop

    Do While DateBgn = DateEnd
        DateBgn = DateBgn + i
        strFldr = Year(DateBgn) & OneInTwo(Month(DateBgn)) & OneInTwo(Day(DateBgn))
        colFolder.Add strFldr
        i = i + 1
    Loop

Set oLO = ActiveWorkbook

oLO.Worksheets("lotout").Selection <Object doesn&#39;t support this property or method>
oLO.Worksheets("lotout").Range.Selection <Wrong number of arguments or invalid property assignment>