Public Wb As Workbook
Sub Макрос1()
    Workbooks.Open Filename:="C:\Users\Oleg\АРХИВ_МЕНЮ.xlsm"
    Set Wb = ActiveWorkbook
    MsgBox Wb.Name
       
    Dim MySheet As String
    Sheets.Add After:=Sheets(Sheets.Count)
    
        Windows.Arrange ArrangeStyle:=xlTiled
    Windows("МЕНЮ.xlsm").Activate
    Sheets(MySheet).Select
    Sheets(MySheet).Move Before:=Workbooks("АРХИВ_МЕНЮ.xlsm").Sheets(4 _
        )
    Range("L38").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Январь").Select
End Sub

Public Wb As Workbook
    Sub SaveSheetInFolderToFile()

    Workbooks.Open Filename:="C:\Users\Oleg\АРХИВ_МЕНЮ.xlsm"
    Set Wb = ActiveWorkbook
    MsgBox Wb.Name
    
    Dim bookconst As Workbook
    Set bookconst = Workbooks(ActiveWorkbook.Name)

    Application.ScreenUpdating = False

    ActiveSheet.Move 'дает ошибку: в книге должен быть хотя бы один видимый лист

    Dim sName, fAdres As Variant
    sName = ActiveSheet.Name
    fAdres = bookconst.Path  

    If Len(Dir(fAdres & "\" & bookconst, vbDirectory)) = 0 Then  
    MkDir fAdres & "\" & bookconst  

    End If  

    ActiveWorkbook.SaveAs Filename:=fAdres & "\" & bookconst & "\" & Format(Now, "yyyy/mm/dd hh-mm") & ".xlsx"
    Application.ScreenUpdating = True
    ActiveWorkbook.Close

    End Sub

Option Explicit
Dim DestinationBook As Workbook
Public Sub КопированиеЛистаВНужнуюКнигу()
    Dim SourceSheet As Worksheet
    
    Set SourceSheet = ThisWorkbook.ActiveSheet
    If ВыбратьКнигуПолучатель = True Then
        SourceSheet.Copy After:=DestinationBook.Sheets("Лист1")
    End If
End Sub
Function ВыбратьКнигуПолучатель() As Boolean
    Dim OpenFileName As String
    
    On Error Resume Next
    OpenFileName = Application.GetOpenFilename(FileFilter:="Рабочие книги  (*.xls),*.xls")
    Set DestinationBook = Workbooks.Open(OpenFileName)
    If Err.Number > 0 Then
        ВыбратьКнигуПолучатель = False
    Else
        ВыбратьКнигуПолучатель = True
    End If
End Function