Copy Selected Rows to next blank Row of another workbook, then second workbook

  • Hello Wizards,

    On Excel worksheet of workbook A, manually I select some Rows (not range, but rows)

    Need VBA to copy these rows to next blank Row of workbook B, save B
    Then copy same rows to next blank Row of workbook C, save C

    Worksheet in workbook B and C is: Sheet1(ALL)

    B – path C|123
    C – path K|456

  • Untested, but try this

  • How do I change this line to refer to a sheet not by it's name on tab (e.g. "All") but by code name, I believe it's called, so even if tab name will change code will still work?

    rRng.Copy ActiveWorkbook.Sheets("All").Cells(Rows.Count, 1).End(xlUp).Offset(1)

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!