Sub macro1()

Const prevcount = 2000
Dim tablcount As Integer

Dim i As Integer
i = 2
Dim j As Integer
Dim tabl(1 To 2, 1 To prevcount) As Variant
tablcount = 1
tabl(1, 1) = Range("A2").Value
tabl(2, 1) = (Range("D2").Value = "none issued")
Dim criteria As Boolean
Do While Not IsEmpty(Range("A" + Format(i)).Value)
j = 1
criteria = False

Do While (Not criteria) And (j <= tablcount)
If (Range("A" + Format(i)).Value = tabl(1, j)) Then
criteria = True
tabl(2, j) = tabl(2, j) And (Range("D" + Format(i)).Value = "none issued")
Else
j = j + 1
End If
Loop

If j > tablcount Then
tablcount = j
tabl(1, j) = Range("A" + Format(i)).Value
tabl(2, j) = (Range("D" + Format(i)).Value = "none issued")
End If

i = i + 1
Loop

i = 2
Do While Not IsEmpty(Range("A" + Format(i)).Value)
j = 1
Do While j <= tablcount
If (Range("A" + Format(i)).Value = tabl(1, j)) Then
If tabl(2, j) Then Range("E" + Format(i)).Value = "action" Else Range("E" + Format(i)).Value = "cannot action"
End If
j = j + 1
Loop
i = i + 1
Loop

End Sub

You can try to execute this macro