Hi guys, this macro copies sheets from one workbook to another
depending on criteria

If i run the macro when the originals sheets have a autofilter that
filters all non blanks, it gives a problem. I want him to copy the
sheets as values, so without the filter...

The problem is in the last part :" Cells.PasteSpecial xlPasteValues"!!!


If Sheets("Report Option Plan").Range("a5").Value = Sheets("Report
RSU").Range("a4").Value Then
If Sheets("Report Option Plan").Range("a5").Value = Sheets("Report
ESPP").Range("a3").Value Then
If Sheets("Report Option Plan").Range("a5").Value =
Sheets("Report F Shares").Range("a3").Value Then
Sheets(Array("Overview", "Report Option Plan", "Report RSU",
"Report ESPP", "Report F Shares")).Copy
Else
Sheets(Array("Overview", "Report Option Plan", "Report RSU",
"Report ESPP")).Copy
End If
Else
If Sheets("Report Option Plan").Range("a5").Value =
Sheets("Report F Shares").Range("a3").Value Then
Sheets(Array("Overview", "Report Option Plan", "Report RSU",
"Report F Shares")).Copy
Else
Sheets(Array("Overview", "Report Option Plan", "Report
RSU")).Copy
End If
End If
Else
If Sheets("Report Option Plan").Range("a5").Value = Sheets("Report
ESPP").Range("a3").Value Then
If Sheets("Report Option Plan").Range("a5").Value = Sheets("Report
F Shares").Range("a3").Value Then
Sheets(Array("Overview", "Report Option Plan", "Report ESPP",
"Report F Shares")).Copy
Else
Sheets(Array("Overview", "Report Option Plan", "Report
ESPP")).Copy
End If
Else
Sheets(Array("Overview", "Report Option Plan", "Report F
Shares")).Copy
End If
End If

Worksheets.Select
Cells.Copy
Cells.PasteSpecial xlPasteValues
Worksheets(1).Buttons.Delete
Cells(1).Select
Worksheets(1).Select
Application.CutCopyMode = False