copy filtered rows only error

[zabiullakhan]

I get error message as below

Run-time error '1004':
 
Microsoft office excel cannot create or use the data range refrence because it is too complex. Try one or more of the following:
[LIST]
[*]Use data that can be selected in one contiguous rectange.
[*]Use data from the same sheet.
[/LIST]

for the blow code

Cells(2, Col).Select
Range(Selection, Selection.Offset(LastInfoRow, 0)).Select
[COLOR=red]Selection.SpecialCells(xlCellTypeVisible).Copy[/COLOR]

In the above code LastInfoRow is a function which gives me the last row of my data

I get error on line marked with red and the data i have is of 45000 rows and filtered data is of just 31000 rows.

Please help.