Copy Selected Data and Paste to the Last Row of Another Sheet

  • Hello Ozgrid,


    It's been awhile since my last post. I am trying to prepare a report; In the Sheet1, range is F3 to H3. I'd like to copy this values to Sheet2. However, each time I run the macro, it starts to paste from A2 to down (only F3 value!). Any help would be great showing me where I am wrong with the code.


    Thanks in advance.


    Onexc

    Files

    • Test1.xlsm

      (16 kB, downloaded 214 times, last: )

    [SIZE=4]"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
    Sir Arthur C. Clarke
    [/SIZE]

  • Re: Copy Selected Data and Paste to the Last Row of Another Sheet


    Hello,


    You could test following macro ...


    Code
    1. Sub Lister()
    2. Dim lRow As Long
    3. lRow = Worksheets("Sheet2").Cells(Worksheets("Sheet2").Rows.Count, 1).End(xlUp).Row
    4. Worksheets("Sheet2").Range("A" & lRow + 1 & ":C" & lRow + 1).Value = Worksheets("Sheet1").Range("F3:H3").Value
    5. End Sub


    Hope this will help

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Like" icon ...just below...in the bottom right corner...:)

  • Re: Copy Selected Data and Paste to the Last Row of Another Sheet


    Thank you very much Carim! Works like a charm

    [SIZE=4]"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
    Sir Arthur C. Clarke
    [/SIZE]

  • Re: Copy Selected Data and Paste to the Last Row of Another Sheet


    Glad you could solve your problem ... :wink:


    Thanks ... for your thanks ...:smile:

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Like" icon ...just below...in the bottom right corner...:)