I have a code that is not working, I want to move dates in cell in column " T " to Cell In Column " S ". I have the code under the sheet "BACKLOG" Wher the code will run. I have two other codes in that sheet so this code is " Block 3 " When I add a past due date in a cell from Column " T " nothing happens.




'***BLOCK 3***

Sub MoveDates()
Dim Lrow As Long, i As Long
Dim rng As Range

On Error GoTo errHandler
Application.EnableEvents = False
Lrow = Cells.Find(what:="*", After:=Range("S1"), Lookat:=xlPart, LookIn:=xlFormulas, _
searchorder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
For i = 1 To Lrow
Set rng = Range("B" & i)
If rng <= Date Then
rng.Offset(0, -1) = rng
rng.Clear
End If
Next

exitHere:
Set rng = Nothing
Application.EnableEvents = True
Exit Sub

errHandler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume exitHere

End Sub