Sub test()
Dim oneCell As Range
With Sheet1.Range("E:E")
For Each oneCell In Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
With oneCell
If IsNumeric(.Value) Then
If .Offset(0, 2).Value >= 1.5 * .Value Then
.Offset(0, 2).Value = .Value
End If
End If
End With
Next oneCell
End With
End Sub