Sub Test
With Worksheets("Sheet1")
x = .Range("LA1").Column
y = .Range("BOJ1").Column
For i = x To y
If .Cells(i, 59).Value = .Cells(i, 60) And _
.Cells(i, 3).Value = "0" And _
.Cells(i, 14).Value = "1" And _
.Cells(i, 1).Value >= .Cells(i, 36) And _
.Cells(i, 1).Value <= .Cells(i, 37) Then
.Cells(i, 5).Value = "1"
Else: .Cells(i, 5).Value = "0"
End If
Next
End With
End Sub