Copy information after last filled row of another sheet

[artemisa34]

Hi, can you help me please? I am trying to copy some data from a sheet called "CargaETL" to another called "ETL FXS", where there's already data, so new information should be copied right after the last filled row in "ETL FXS".

The macro I am currently using is this one:


Sub CopyPasteETLFXS()


Dim DLR As Long, WLR As Long
DLR = Sheets("CargaETL").Range("B10000").End(xlUp).Row
WLR = Sheets("ETL FXS").Range("A10000").End(xlUp).Row


Sheets("CargaETL").Range("A2:BX" & DLR).Copy Destination:=Sheets("ETL FXS").Range("A" & WLR + 1)


End Sub

It returns Debug and suggests that the error may be related to line
"DLR = Sheets("CargaETL").Range("B10000").End(xlUp).Row"

Any help is appreciated!!Thanks!!

 

[Fluff]

Hi & welcome to the board.
What error message do you get?

 

[artemisa34]

Hi Fluff, thanks. The error message I get is "Run-time error '9': Subscript out of range".

 

[Fluff]

In that case do you have a sheet called CargaETL, check for any leading/trailing spaces.

 

[mumps]

Try:

Sub CopyPasteETLFXS()
    Dim DLR As Long
    DLR = Sheets("CargaETL").Range("B" & Rows.Count).End(xlUp).Row
    Sheets("CargaETL").Range("A2:BX" & DLR).Copy Sheets("ETL FXS").Cells(Sheets("ETL FXS").Rows.Count, "A").End(xlUp).Offset(1, 0)
End Su

b

 

[artemisa34]

That was it! It works perfectly now. Thanks a lot!!

 

[artemisa34]

Thank you mumps . Solved now

 

[mumps]

Glad to help.