If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Copy / Paste without selecting sheet

Thread starter LORDMARKS
Start date Sep 23, 2014
Tags

filtered

LORDMARKS

New Member

Sep 23, 2014

Code:

Sheets("Sheet1").Range("B23:D37").ClearContents
Sheets("Sheet1").Range("B4:D18").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet1").Range("B23:D37")
Sheets("Sheet1").Range("B23:D37").Value = Sheets("Sheet1").Range("B23:D37").Value

The above code works fine when I only select one filter variable, however when I select from another column I get the same data repeated all the way down the target range?

What I am trying to do is clean up some slow recorded macros, given to me on an old workbook. So I am trying to remove all the copy / paste functions and repeat codes. This seemed to be the most efficient way of moving selected data to another sheet so that I could run reports. If anyone has any idea why this doesnt work or can offer a better solution, that would be great.

cheers all