Run Time Error 91 during Find using Array

Not had idea what the root cause for the error it only occur when the program try to find the value in array at the third value.

Public Sub GetBGA()

Dim PMIC() As String
Dim PartNumber1 As Long
Dim Counter As Long
Worksheets("Test1").Select
PartNumber1 = Range("A1", Range("A1").End(xlDown)).Cells.Count
ReDim PMIC(1 To PartNumber1)

For Counter = 1 To PartNumber1
    PMIC(Counter) = Range("A1").Offset(Counter - 1, 0).Value
Next Counter

For Counter = 1 To PartNumber1
Worksheets("Test2").Select
Cell.Find(What:=PMIC(Counter), After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Copy
Worksheets("Test3").Select
Rows(1).Insert
Next Counter


End Sub