Sub DateFiles1()
    Dim NameXLSM1 As String  'Имя открываемого файла с расширением
    Dim Name1 As String  'Имя открываемого файла без расширения
    Dim NameXLSM0 As String  'Имя предыдущего файла с расширением
    Dim NameFull0 As String  'Полное имя предыдущего файла с расширением
    Dim Name0 As String  'Имя предыдущего файла без расширения
    Dim dtName As Date  'Дата для преобразования (для вычитания 1)
    Dim intLenght As Integer  'Длина имени открываемого файла с расширением
     
    'Определение имени текущего (открываемого) файла и преобразование его в дату.
    NameXLSM1 = ActiveWorkbook.Name
    intLenght = Len(NameXLSM1)
    Name1 = Left(NameXLSM1, intLenght - 4)    ' Отсекает 4 знака слева
    dtName = CDate(Name1)
     
    'Вычитание из названия файла 1 (т.е. определение имени предыдущего файла).
    dtName = dtName - 1
    Name0 = Format(dtName, "yyyy/mm/dd")
     
    ' Открытие макросом предыдущего файла .
    NameFull0 = ActiveWorkbook.Path & "\" & Name0 & ".xls"
    Workbooks.Open Filename:=NameFull0
    NameXLSM0 = Name0 & ".xls"
    Windows(NameXLSM0).Activate
     
    ' Копирование содержимого предыдущего файла .
    Application.DisplayAlerts = False 'Чтобы на задавал вопросов
    Range("V39").Select
    Selection.Copy
   
    'Закрытие предыдущего файла.
    ActiveWindow.Close
     
    'Вставка данных из буфера обмена в указанное место нового файла.
    Windows(NameXLSM1).Activate
    Range("Q39").Select
    ActiveSheet.Paste
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
     
    Application.DisplayAlerts = True
End Sub