Here's the code for the current Macro:

Sub CleanUp()
'
' CleanUp Macro
' Delete Unwanted Columns and Clean Up Data
'
' Keyboard Shortcut: Ctrl Shift M
'

    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("K:K").Select
    Selection.Delete Shift:=xlToLeft
    Columns("L:L").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=-2
End Sub

In addition to the above, I want it to do the following:

1. Delete any rows where the value in column G is before June 1, 2016.

2. Delete any row where the number in columns C, D or E is any value other than 1 - 5.

3. Column A is supposed to be a unique identifier for every row. However, for some reason, it is possible there are duplicates. In cases where there are duplicates, I want the macro to delete all but the last one. The data is organized chronologically by time (which is in column H).