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

 

[VBABEGINER]

Do you have
1) an open workbook called Book1.xlsm
= No. I am opening this file from,

Dim fNameAndPath1 As Variant
fNameAndPath1 = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fNameAndPath1 = False Then Exit Sub
Workbooks.Open Filename:=fNameAndPath1

And, this is not .xlsm. This is .xls file.

2) a sheet in the above workbook called sheet1
= Yes.

3) data in A2 of above sheet/workbook
= Yes.

4) an open workbook called book2.xlsm
= Yes. This is already kept open with me.

5) a sheet in book2 called abc
= Yes.

 

[Fluff]

In that case try

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

Making sure that your "Book1" is active

 

[VBABEGINER]

In that case try

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

Making sure that your "Book1" is active

Excellent...ray: ....5 star rating for you...

Thanks Fluff, for your kind activeness and sharing for knowledge..

Can You also tell me about this..

Range(Cells(2, 10), Cells(LstRw, 10)).Select
Selection.ClearContents

 

[Fluff]

Can You also tell me about this..
Range(Cells(2, 10), Cells(LstRw, 10)).Select
Selection.ClearContents

Depends what the value of LstRw is
But if we assume that LstRw = 100 then, it is removing the contents of the cells J2 to J100