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