Method 1 :
ThisWorkbook.Sheets("SOURCESHEET").Range("A2:BD200").Copy
wb_another.Sheets("DESTINATIONSHEET").Range("A2").PasteSpecial Paste:=xlValues
Method 2 :
ThisWorkbook.Sheets("SOURCESHEET").Range("A2:I200").Copy wb_another.Sheets("DESTINATIONSHEET").Range("A2:I200")
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts