Copy Data into Worksheet

[smgregory]

Sorry if this has been posted before, but I couldn't find something I could understand. Here is my issue. I have one worksheet, PreSales, with data in it. I filter that data 5 times and paste the results into new worksheets, "temp" "temp1" etc. I then run some formulas in the temp worksheets to determine total number of presales items for each filter and potential dollar amount. I turn off the autofilter in the PreSales sheet so that it displays everything again. I want to then paste the data from temp, temp1, temp2, temp3, temp4 back into the PreSales sheet. HOWEVER, when I try with the following code, I get an error that the copy and paste ranges are different. Can anyone help?
Thank you in advance!

Oh, I also want to keep the formatting as well from "temp" back to "PreSales"

Steve

    Sheets("temp").Select
    Dim Rng As Range
    Set Rng = Selection.SpecialCells(xlCellTypeVisible)
        Rng.Copy
    Sheets("PreSales").Select
    ActiveSheet.Range("A1").End(xlDown).Offset(2, 0).Select
    ActiveSheet.PasteSpecial Paste: xlPasteValues
    Sheets("temp").Select
    ActiveWindow.SelectedSheets.Delete