Hi all,

I was wondering if some one would help me with small changes in the program. I have code that does this simple job i.e after report got run in the template . I need only specific sheets to be saved to the specified folders so program is doing fine but at the time of creating a copy.it is not coping graphs or charts as it is. and more over it is copying and pasting from cell 1 I don't want that way , I want it to be dynamic , the area that was used in my template the same area needs to copy and past.

can that be happened ?. below is the code for your reference.

Sub SaveAs_current()
'Nov 19, 2016
Dim mywb As Workbook, wb As Workbook
Set mywb = ThisWorkbook
Dim ws As Worksheet
Dim v As Variant, vv As Variant
v = Array("Summary", "Breakup") '<< sht names
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Workbooks.Add
For Each vv In v
Set ws = wb.Worksheets.Add(after:=wb.Worksheets(wb.Worksheets.Count))
ws.Name = vv
mywb.Sheets(vv).UsedRange.Copy
ws.Cells(1).PasteSpecial Paste:=xlPasteFormats
ws.Cells(1).PasteSpecial Paste:=xlPasteFormulas
ws.Cells(1).Select
Application.CutCopyMode = False
ws.UsedRange.EntireColumn.AutoFit
Application.CutCopyMode = False
Next
For Each sh In wb.Worksheets
If sh.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Is Nothing Then
sh.Delete
End If
Next
With wb
'change path as needed
.SaveAs mywb.Sheets("Control").Range("A2").Value & "Deductions_Analysis_report" & Format(Date, "_mmddyyyy"), 51
.Close False
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub