工作表里只留12小时以内全部数据的宏

1 工作表第一行是菜单 是需要保留的

2 数据从第2行开始有 时间从下向上倒序 即上面的时间是新的 如:
第2行是5月10号12:20
第3行是5月10号12:19
第4行是5月10号12:19
第5行是5月10号12:18
第5行是5月10号12:17
......

3 ：时间在E列！

现在想要一个宏 运行后只保留最近12小时的全部数据 谢谢

Sub Macro1()
Dim x, i As Integer
Application.ScreenUpdating = False
x = ActiveSheet.Range("E65536").End(xlUp).Row
Range("E2:E"&x).Copy Range("A2")
For i = x To 2 Step -1
If Range("E2") - Range("E" & i) > 0.5 Then
Rows(i & ":" & i).Delete Shift:=xlUp
Else
Exit For
End If
Next i
[A1].Select
Application.ScreenUpdating = True
End Sub