Professional code require for recorded macro

[VBABEGINER]

To, All experts,
pls provide me some professional code for below line of code..So i can learn the new..

Windows("Book1.xlsm").Activate
Sheets("sheet1").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Book2.xlsm").Activate
Sheets("abc").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select

 

[Fluff]

Something like

Workbooks("Book1.xlsm").Sheets("sheet1").Range("A2").CurrentRegion.Copy Destination:=Workbooks("Book2.xlsm").Sheets("abc").Range("A2")

 

[VBABEGINER]

Something like

Workbooks("Book1.xlsm").Sheets("sheet1").Range("A2").CurrentRegion.Copy Destination:=Workbooks("Book2.xlsm").Sheets("abc").Range("A2")

Hi, Thnks for your quick reply...

But it gives me an error....subscript out of range

 

[Fluff]

Do you have
1) an open workbook called Book1.xlsm
2) a sheet in the above workbook called sheet1
3) data in A2 of above sheet/workbook
4) an open workbook called book2.xlsm
5) a sheet in book2 called abc

 

[VBABEGINER]

Hi Fluff,
This is the corrected one..

Workbooks("Book1.xls").Sheets("sheet1").Range("A2").CurrentRegion.Copy _
Destination:=Workbooks("Book2.xlsm").Sheets("abc").Range("A2")

 

[VBABEGINER]

Hello, Can anyone please provide nice code of line for my query please....

 

[Fluff]

Hello, Can anyone please provide nice code of line for my query please....

I'm afraid I don't understand what you mean. Could you please explain

 

[VBABEGINER]

Yes Sure Fluff..

 

[VBABEGINER]

I'm afraid I don't understand what you mean. Could you please explain

Workbooks("Book1.xls").Sheets("sheet1").Range("A2").CurrentRegion.Copy _
Destination:=Workbooks("Book2.xlsm").Sheets("abc").Range("A2")

it giving me an error, subscript out of range..Run time error 9..

therefore, I added, 2 line above to this code..

Sheets("sheet1").Select
Range("A2").Select
Workbooks("Book1.xls").Sheets("sheet1").Range("A2").CurrentRegion.Copy _
Destination:=Workbooks("Book2.xlsm").Sheets("abc").Range("A2")

 

[Fluff]

In that case could you please answer my questions from post#4