Sub Copy_File()
    Dim sFileName1, sFileName2, sFileName3, sFileName4, sFileName5, sFileName6 As String
    Dim sNewFileName1, sNewFileName2, sNewFileName3, sNewFileName4, sNewFileName5, sNewFileName6 As String
    Dim ПутьКРабочемуСтолу, d, PUT_FILE As String

    ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    d = Format(Date, "DDMM") ' присваиваем переменной d значение текущего дня и месяца
    PUT_FILE = ПутьКРабочемуСтолу & "\MyBook " & d

    sFileName1 = PUT_FILE & "\Прайс оптовый.xlsx"    'имя файла для копирования
    sFileName2 = PUT_FILE & "\Основной прайс.xlsx"    'имя файла для копирования
    sFileName3 = PUT_FILE & "\Прайс как онлайнер.xlsx"    'имя файла для копирования
    sFileName4 = PUT_FILE & "\Прайс под заказ.xlsx"    'имя файла для копирования
    sFileName5 = PUT_FILE & "\Прайс с мин. ценами.xlsx"    'имя файла для копирования
    sFileName6 = PUT_FILE & "\Смарт прайс.xlsx"    'имя файла для копирования
    sNewFileName1 = "G:\Мой диск\Оптовый прайс\Прайс оптовый.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName2 = "G:\Мой диск\Прайсы\Основной прайс.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName3 = "G:\Мой диск\Прайсы\Прайс как онлайнер.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName4 = "G:\Мой диск\Прайсы\Прайс под заказ.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName5 = "G:\Мой диск\Прайсы\Прайс с мин. ценами.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName6 = "G:\Мой диск\Прайсы\Смарт прайс.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    
    FileCopy sFileName1, sNewFileName1 'копируем файл
    FileCopy sFileName2, sNewFileName2 'копируем файл
    FileCopy sFileName3, sNewFileName3 'копируем файл
    FileCopy sFileName4, sNewFileName4 'копируем файл
    FileCopy sFileName5, sNewFileName5 'копируем файл
    FileCopy sFileName6, sNewFileName6 'копируем файл
End Sub

    Entry1 = InputBox("Вставьте данные")
    Range("T1").Select
    ActiveCell = Entry1

Sub CSV_1K()
    Entry1 = InputBox("Введите нужный курс")
    Range("T1").Select
    Selection.NumberFormat = "#,##0.000"
    ActiveCell = Entry1
    Range("V1").FormulaR1C1 = _
        "Официальная гарантия! Оперативно привезем по низким ценам. Наш сайт. Возможность доставки по РБ уточняйте у менеджеров по телефонам!"
    Range("W1").FormulaR1C1 = _
        "=SUBSTITUTE(IFERROR(--(DAY(RC[-13])&"",""&MONTH(RC[-13])),SUBSTITUTE(RC[-13],""."","",""))*R1C20,"","",""."")"
    Range("X1").FormulaR1C1 = "12"
    Range("Y1").FormulaR1C1 = "На складе"
    [V1:Y1].Copy Range("V1:Y" & [a65000].End(xlUp).Row)
    Range("Z1").FormulaR1C1 = "1000129"
    Range("Z2").FormulaR1C1 = "=R[-1]C+1"
    [Z2].Copy Range("Z2:Z" & [a65000].End(xlUp).Row)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.NumberFormat = "@"
    Columns("C:U").Delete Shift:=xlToLeft
    Rows("1:1").Delete Shift:=xlUp
End Sub