What is wrong with this?

Hi, I could not see why it gets error.
It gives "object" error at the point written in bold.

With Workbooks("A.XLS").Worksheets("A")
.Range("2:2").Insert
.Range(Cells(2, 9), Cells(2, 11)).Value = .Range(Cells(3, 9), Cells(3, 11)).Value
End With

Thanks...

You refer to "Cells" from which workbook/sheet... ;)

So, in your code "Cells(2, 11)).Value" for instance will refer to the active sheet, no matter which one it is. If you don't want that to happen you'll have to put a dot in front of it:

With Workbooks("A.XLS").Worksheets("A")
.Range("2:2").Insert
.Range(.Cells(2, 9), .Cells(2, 11)).Value = .Range(.Cells(3, 9), .Cells(3, 11)).Value
End With

:)

Try the following:

Range(.Cells(2, 9), .Cells(2, 11)).Value = Range(.Cells(3, 9), .Cells(3, 11)).Value
Qualify the ranges passed in the Range reference, but not the outer Range, it knows what to do from there. :)

Thank you for all worthy replies.