Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        s$ = Join(Array("1ПИ-" & [B2] & "_" & Format([B3], "YYYY_MM_DD") & "_" & Replace([B4], "/", "~")), "") & "_" & Replace([B5], "/", "~") & "_" & Replace([B6], "/", "~")
        Cancel = True
        With Application.FileDialog(msoFileDialogSaveAs)
            .InitialFileName = s
            If .Show Then .Execute
        End With
    End If
End Sub

Range("C2").Formula = "постоянная часть" & переменная & "постоянная часть"
Range("C2").Formula = "=COUNTIF(D2:D" & cells(rows.count, 4).end(xlup).row) & ",D2)"

x = IsDate("30.02.20")
xx = CDate("30.02.20")
xxx = IsDate("10.02.20")
xxxx = CDate("10.02.20")
xxxxx = IsDate("30.02.30")

ActiveCell.Value = ComboBox1.Value
   ActiveCell.Offset(1).Value = ComboBox2.Value

Sub test()
[b25].Resize(, 8) = FindDataRow([a25], [a2:i20])
End Sub