Cells(x, 1).Value = Format(Now, "dd/mm/yy;@")

Dim b As Date
b = 1 / Month / Year
If CDate(Cells(x, 1).Value) < b Then

Sub ВернутьКнигуНаПолку()
'Application.ScreenUpdating = False
BookShelf.Show
Dim Latest As Long
Dim mybook As String
Dim Ticket As String
Dim maxx As Long
Dim x As Long
Dim y As Long
mybook = BookShelf.ComboBox1.Value
Ticket = BookShelf.ComboBox2.Value
Unload BookShelf
Sheets("Список книг").Select
Range("A:A").Find(mybook).Select
Latest = Sheets("Читальные залы").Cells(1, 10).Value
Cells(ActiveCell.Row, 6 + Latest).Value = Cells(ActiveCell.Row, 6 + Latest).Value - 1
Sheets("История").Select
maxx = Cells(Rows.Count, 3).End(xlUp).Row
For x = 2 To maxx
If Cells(x, 5).Value = Ticket And Cells(x, 3).Value = mybook Then
Cells(x, 9).Value = 0
End If
Next x
Do While Cells(ActiveCell.Row, 3).Value = mybook
Selection.FindNext(After:=ActiveCell).Activate
Loop
Cells(ActiveCell.Row, 9).Value = 0
Sheets("Читальные залы").Select
maxx = Cells(Rows.Count, 2 * Cells(1, 10).Value).End(xlUp).Row
For x = 3 To maxx
If Cells(x, 2 * Cells(1, 10).Value).Value = mybook And Cells(x, 2 * Cells(1, 10).Value + 1).Value = Ticket Then
y = x
End If
Next x
'Range(Cells(y, 2 * Cells(1, 10).Value), Cells(y, 2 * Cells(1, 10).Value + 1)).Select
If y > 3 Then
Range(Cells(y + 1, 2 * Cells(1, 10).Value), Cells(maxx, 2 * Cells(1, 10).Value + 1)).Cut Destination:=Range(Cells(y - 1, 2 * Cells(1, 10).Value), Cells(maxx - 1, 2 * Cells(1, 10).Value + 1))
End If
Cells(1, 10).Clear
Application.ScreenUpdating = True
End Sub