• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Copy filtered range and paste in another sheet (exclude header)

Mr.Karr

Member
Is there a way to copy filtered range and paste it in another sheet lastused row everytime without its header ?

  • I have a dataTable already filtered by some criteria (sheet=Home).
  • Header is already available in the destination sheet "Data".
  • Copy filtered range and find lastUsed row in sheet data everytime a macro button is clicked.
Sample file attached.

Many thanks in advance.
 

Attachments

  • sample file.xlsm
    10.9 KB · Views: 12
How about
Code:
Sub test()
With Sheets("Home").Range("a21").CurrentRegion.Offset(1)
  .SpecialCells(xlCellTypeVisible).Copy Worksheets("Data").Range("A" & Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1)
   End With
End Sub
 

Attachments

  • sample file.xlsm
    24 KB · Views: 35
Back
Top