Copy content from 2 Excel files in one(problem with last row)

[Adi21]

Hy guys, I want to copy the content from 2 Excel files in another.

Until now I have this code(I know it`s not complete):

Private Sub CommandButton1_Click()
Dim ThisPath As String
    ThisPath = ActiveWorkbook.Path
    Workbooks.Open Filename:=ThisPath & "\" & "DatabaseLealde1"
    b1 = ActiveWorkbook.Name
    'Workbooks.Open Filename:=ThisPath & "\" & "DatabaseLealde2"
    'b2 = ActiveWorkbook.Name
    Workbooks(b1).Sheets("Faza1").Activate
    LR = Range("J" & Rows.Count).End(xlUp).Row
    Range("A2", "M" & LR).Copy
    Workbooks("Grafice").Activate
    ActiveWorkbook.Sheets("Faza1").Activate
    Range("A2:M2").PasteSpecial Paste:=xlPasteValues
    Workbooks(b1).Close SaveChanges:=False
End Sub

But I checked with debugger and LR recive 1.
I can`t understand why, because I have 26 lines there and I used that line to find the last row for few times and was working.
Anybody can help be?
Thanks!

 

[skorpionkz]

Do you have cells in column J merged with the previous column?

try to use this code:

LR = Cells.Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

 

[Adi21]

What is it in column J is copied from another excel files.
But I don`t thing is merged with any previous column.

 

[Adi21]

With your code I get this error: " Object variable or block variable not set"

 

[skorpionkz]

It works fine for me... try to add the sheet reference to the line:

LR = Sheets("Faza1").Cells.Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

 

[Adi21]

Now is working.Thanks a lot.
But I don`t understand why you need to add sheet reference if I used this

 Workbooks(b1).Sheets("Faza1").Activate

before.
You can explain me why?

 

[skorpionkz]

it should work without sheet reference. I can say why it doesn't without debugging code by myself

 

[Adi21]

That is the only code I have in that file.
Ok, thank you!

 

[skorpionkz]

You are welcome!