For loop in macro

Dear all,

May i know what's wrong with the code here

Sub macro()

Dim d As Integer
For d = 1 to 5
ActiveSheet.Range("$A$1:$B$20").AutoFilter Field:=1, Criteria1:=Array("d"), Operator:=xlFilterValues
Next d

End Sub

I want to display a certain filtered value. Such as this eg, i want all the detail of 5 display. But I could not get any data except the header. Once I remove the "d" in array I can get the answer

Thank you

Regards,
sorhaishadow