I sometimes get an error with this code. The error says:

"Run-time error '1004':

THe command could not be completed by using the range specified. Select a
single cell within the range and try the command again."

The object is not empty, and it has a valid range. What does this error
mean, and why does it not happen every time?

Code:

Dim typeCol As Integer, typeRng As Range

' Reset these values to fit the correct columns
typeCol = 8
lastRow = Cells(65536, 1).End(xlUp).Row

' Define Ranges
Set typeRng = Range(Cells(2, typeCol), Cells(lastRow, typeCol))

' Create unique list of used types
typeRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"I2"), Unique:=True
Range("I2").Select

Thanks,
Pflugs