Sub Vytvor_subor_pre_novy_mesiac()
Dim Nazov As String, Kontrola As String, Cesta As String

    With ActiveWorkbook.ActiveSheet
        Nazov = .Name
        Cesta = .Parent.Path & "\"
        If Nazov <> Left$(.Parent.Name, 7) Then MsgBox "Názov listu sa nezhoduje s názvom súboru.", vbExclamation: Exit Sub
        Kontrola = Replace(Nazov, "_", "")
        If Len(Kontrola) <> 6 Or Not IsNumeric(Left$(Kontrola, 2)) Or Not IsNumeric(Left$(Kontrola, 4)) Then MsgBox "Nesprávny názov mesiaca (mm_yyyy).": Exit Sub
        Nazov = Format(DateValue("15/" & Replace(Nazov, "_", "/")) + 30, "mm_yyyy")
        .Copy
    End With
    
    With ActiveWorkbook.ActiveSheet
        .Name = Nazov
        Intersect(.UsedRange, .Range("B:DR")).Offset(1, 0).ClearContents
        .Parent.SaveAs Filename:=Cesta & Nazov & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    End With
End Sub