Copy cells from selected range of workbook1 to the first empty row in a table in workbook2

[mab.alianza.ez8]

I cry "UNCLE!"

Goal of the macro is that it gets data from a specific set of cells (always the same range) from workbook1 and paste it to the first empty cell in a column of password-protected workbook2. It will then save both files and close workbook2.

Here's what i've assembled so far:

Please Login or Register  to view this content.

Researched and found that the Run Time Error 9 means i've somehow misnamed or misdirected the macro at the "lRow" portion.

Help would be greatly appreciated.

Thank you.

[Norie]

You could start by replacing Workbooks("workbook2") with ThisWorkbook.

[mab.alianza.ez8]

Tried, the entire line (where lRow is) went red.

[Norie]

What exactly did you try?

PS Could you use code tags when posting code?

[mab.alianza.ez8]

Like indents and the like?

lRow = ThisWorkbook .Worksheets("Tab1") .Cells(Worksheets("Tab1") .Rows.Count, 2).End(xlUp) .Row

That line went red.

[Norie]

Try this.

Please Login or Register  to view this content.

PS The reason your code is turning red, which indicates a syntax error, is that you appear to have added a bunch of spaces after the '.' in the code.

[mab.alianza.ez8]

Will do that when i get back to work, ser.

Crossing my fingers re fix!

[mab.alianza.ez8]

Got this:
438Error.png

Error occurred at the code boxed in yellow:
CodeError.png

Only changed the filename and password as required.

[Norie]

Remove the dot in front of Rows.Count.

Please Login or Register  to view this content.

[mab.alianza.ez8]

Got a Run-Time Error 9, fixed it by swapping the wbSource & wbTarget.

Added a function to save and close wbTarget.

IT'S ALIVE!!! Full cred goes to you, Norie!