Q:

Combining multiple sheets with the use of pastespecial xlpastevalues and xlpasteformats

I've been trying to combine multiple sheets in to one. I have already done it but when I tried to add a line of code 
PasteSpecial(xlPasteValues).PasteSpecial(xlPasteFormats)

it leaves my combined sheet blank. Here is the code
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Consolidated"

Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")

For Each s In ActiveWorkbook.Sheets
    If s.Name <> "Consolidated" And s.Name <> "Report" And s.Name <> 
       "Table" And s.Name <> "Values" And s.Name <> "Button" And s.Name <> 
       "PivotTable" And s.Name <> "Task" And s.Name <> "Mapping" 
        Then
        Application.GoTo Sheets(s.Name).[a1]
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets("Consolidated"). _
        Cells(Rows.Count, 1).End(xlUp)(3) _
        .PasteSpecial(xlPasteValues).PasteSpecial(xlPasteFormats)  '<<-- The problem. It does not give me error but it only give me a blank cell everytime I add that line of code.

    End If
Next

A:

Use Like this
Selection.Copy

Sheets("Consolidated").Cells(Rows.Count, 1).End(xlUp)(3).PasteSpecial (xlPasteFormats)

Sheets("Consolidated").Cells(Rows.Count, 1).End(xlUp)(3).PasteSpecial (xlPasteValues)

