Copy and paste area are not the same shape error after AutoFilter

[Jarda Beran]

Hi,
during migration from Office 2003 on Windows 2000 to Office 2007 on Windows
Vista I've encountered strange error in one worksheet programmed years ago.

Code is as follows:

Workbooks.OpenText
Filename:="D:\_glowapps\Transfer\GT\Static\MX_Reports\tr_fx_fwd_p.prn" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=True _
, Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array(1, 1) _
, Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),
Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26,
1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1),
Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39,
1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1))


Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=44, Criteria1:="COMMODITY"
Selection.AutoFilter Field:=34, Criteria1:="PRAGUE"
Selection.AutoFilter Field:=15, Criteria1:="<>BNK", Operator:=xlAnd
Cells.Select
Selection.Copy
Windows("KPkomodity.xls").Activate
Sheets("Import").Select
Range("A1").Select
ActiveSheet.Paste

On the last line error appears - it's Runtime Error 1004 - The information
cannost be pasted because the Copy area and the paste area are not the same
size and shape.

If I comment all the lines beginning with "Sellection.AutoFilter",
everything is O.K., but pasted reccords are not filtered. If I uncomment
them, error appears.

I'll be gratefull for any advice how to avoid this error and paste filtered
records.