Copy/Paste Worksheet Column to Another without overwriting

  • I would like to copy info from one worksheet (Column) and paste to another worksheet (Column) without overwriting previous data. Thank you in advance for your assistance. I have a worksheet that the managers fill out when they move assets from one location to another. I've created three macro's. One to copy this info on worksheet number 1 to another tab for the year. One to convert to PDF and open and e-mail in outlook to send to our transfer department (Works Great) and one to clear the page (Easy). My problem is I cannot get it to move from column B1:B13 to C and so on if that column is filled. I used column A for all the headings. I've attached the excel worksheet just in case.



    CODE HERE

    Sub Copy()
    '
    ' Copy Macro
    '
    '
    Sheets("Transfer Sheet").Select
    Range("B2:B14").Select
    Selection.Copy
    Sheets("FY16").Select
    Range("B1:B13").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-6
    End Sub

  • Re: Copy/Paste Worksheet Column to Another without overwriting


    Try this:

    Code
    Sub Copy()
    Dim lc As Long
        With Worksheets("FY16")
                lc = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
                Sheets("Transfer Sheet").Range("B2:B14").Copy .Cells(1, lc)
                .Columns(lc).AutoFit
        End With
    End Sub
  • Re: Copy/Paste Worksheet Column to Another without overwriting


    Skywriter: Worked great. Thank you... I have been beating my head against the wall all morning. I hope you have a great weekend!


    Best Wishes~
    Rich





    Quote from skywriter;767423

    Try this:

    Code
    Sub Copy()
    Dim lc As Long
        With Worksheets("FY16")
                lc = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
                Sheets("Transfer Sheet").Range("B2:B14").Copy .Cells(1, lc)
                .Columns(lc).AutoFit
        End With
    End Sub

Participate now!

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