Improving Macro's efficiency

I have been using a very lengthy macro weekly for the past 3-years. The macro takes about 7 1/2 hours of computer time to run. I am not having success in combining steps within the macro to reduce the time it takes to run this macro. Below is a representative sample of the inefficient and working script in standard font. This is followed by how I thought steps could be combined in bold font. Unfortunately I cannot get the combined step macro to work. Any input on what I am doing wrong would be greatly appreciated. This could be a specific example or generally what I'm doing wrong, or what reference would be the most useful.

    Sheets("Calculations").Select
    Rows("1:9").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Columns("A:O").Select
    Range("O1").Activate
    Selection.ClearContents
  Sheets("Calculations").Columns("A:O").ClearContents
==

    Sheets("Working Data").Select
    Columns("A:O").Select
    Range("O1").Activate
    Selection.ClearContents

    Sheets("Working Data").Columns("A:O").ClearContents
==

    Sheets("Data").Select
    Rows("1:1").Select
    Selection.AutoFilter

    Sheets("Data").Rows("1:1").AutoFilter
==

    Columns("A:O").Select
    Range("O1").Activate
    Selection.Copy

    Columns("A:O").Copy
==

    Sheets("Working Data").Select
    Range("A1").Select
    ActiveSheet.Paste

    Sheets("Working Data").Range("A1").Paste
==
 
    Range("A1:D1").Select
    Application.CutCopyMode = False

    Range("A1:D1").CutCopyMode = False
==

    Sheets("Calculations").Select
    Range("A10").Select
    ActiveSheet.Paste

    Sheets("Calculations").Range("A10").Paste
==

    Sheets("Formulas").Select
    Rows("1:9").Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets("Formulas").Rows("1:9").Copy

==

    Sheets("Calculations").Select
    Range("A1").Select
    ActiveSheet.Paste

    Sheets("Calculations").Range("A1").Paste
==

    Sheets("Bay Area").Select
    Range("F572").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("Bay Area").Range("F572").Paste
==

    Sheets("Calculations").Select
    Application.Goto Reference:="R1C15"
    Columns("A:O").Select
    Range("O1").Activate
    Application.CutCopyMode = False
    Selection.ClearContents

   Sheets("Calculations").Range("A1:O1").ClearContents
==

    Sheets("Formulas").Select
    Rows("1:9").Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets("Formulas").Range("A1:A9").Copy
==

    Sheets("Calculations").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("F2:BI2").Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets("Calculations").Range("A1").Paste.Range("F2:BI2").Copy
==
 
    Sheets("Calculations").Select
    Application.Goto Reference:="R1C15"
    Columns("A:O").Select
    Range("O1").Activate
    Application.CutCopyMode = False
    Selection.ClearContents

    Sheets("Calculations").Columns("A:O").Range("O1").ClearContents

Thanks in advance.