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

onexc · Apr 19th 2017

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

**Carim** · Apr 19th 2017

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

Hello,

You could test following macro ...

Code

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

Hope this will help

onexc · Apr 20th 2017

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

Thank you very much Carim! Works like a charm

**Carim** · Apr 20th 2017

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:

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

Participate now!

Share