Open another workbook and copy from another workbook until the last row to the active workbook

[Cakz Primz]

Dear All,

I need your help. I want to copy the entire row from "AXREP" sheet in "AXREP" workbook into my active sheet, "AXREP" in "MY AXREP" workbook.
So far, the code below is working, but the problem I don't know the code to copy until the last row from another workbook. I want selected range to copied is dynamic.
Right now, the selected range is not dynamic, see the bold line.

    Windows("AXREP.xlsb").Activate
    [B][I]Workbooks("AXREP.xlsb").Worksheets("AXREP").Range("A2:CC150000").Copy[/I][/B]
    Workbooks("MY AXREP.xlsb").Worksheets("AXREP").Range("A3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Sub OpenCopyPaste()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lRow As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    With ws
      .Range("A3:CC" & lRow).ClearContents
    End With
    
    Call GetLatestAXREP 'Open latest file of AXREP.xlsb
    
    Windows("AXREP.xlsb").Activate
    [B][I]Workbooks("AXREP.xlsb").Worksheets("AXREP").Range("A2:CC150000").Copy[/I][/B]
    Workbooks("MY AXREP.xlsb").Worksheets("AXREP").Range("A3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

I hope that someone would like to help me.
Thanks so much in advance.

Prima-Indonesia

 

[rollis13]

These two changed should do but I'm assuming that coloumn A of Workbooks("AXREP.xlsb").Worksheets("AXREP") contains data in the last used row.

'...
Windows("AXREP.xlsb").Activate
lRow = Worksheets("AXREP").Cells(Rows.Count, 1).End(xlUp).Row     '<- added
Workbooks("AXREP.xlsb").Worksheets("AXREP").Range("A2:CC" & lRow).Copy '<- changed
Workbooks("MY AXREP.xlsb").Worksheets("AXREP").Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'...

 

[Cakz Primz]

Dear rollis13,

Thanks so much for your help and assistance. You save my day.
Really appreciate it.

Problem solved !!!

Thank you rollis13
Thank you MrExcel

These two changed should do but I'm assuming that coloumn A of Workbooks("AXREP.xlsb").Worksheets("AXREP") contains data in the last used row.

'...
Windows("AXREP.xlsb").Activate
lRow = Worksheets("AXREP").Cells(Rows.Count, 1).End(xlUp).Row     '<- added
Workbooks("AXREP.xlsb").Worksheets("AXREP").Range("A2:CC" & lRow).Copy '<- changed
Workbooks("MY AXREP.xlsb").Worksheets("AXREP").Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'...

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.