How to Design a Macro to Copy/Paste Specific Columns to Another Sheet in Specific Columns

I am trying to design a Macro to Copy/Paste value and formatting from one sheet that is linked to other workbooks already into another worksheet that can then include other formulas, formatting and have a sort list to change the order of the data ect.

- Select Specific Columns (max 500 rows of data needed) from the Summary Sheet
- Copy to the Well Stats tab into specific columns that will be in a different order than in the Summary Sheet and will need some columns in between that won't be copied but will instead perform their own calculations


This is the code that I have started but I'm afraid that it will run very slowly once I actually setup 20-30 columns to copy/paste over. Is there a simpler code? I have attached my excel sheet. Thanks in advance!

Code:

Sub CopyCells()
'
' CopyCells Macro


    Sheets("Summary Sheet").Select
    Range("G2:G500").Select
    Selection.Copy
    Sheets("Well Stats").Select
    Range("A3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Summary Sheet").Select
    Range("F2:G500").Select
    Selection.Copy
    Sheets("Well Stats").Select
    Range("B3").Select
    ActiveSheet.Paste
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Summary Sheet").Select
    Range("O2:G500").Select
    Selection.Copy
    Sheets("Well Stats").Select
    Range("C3").Select
    ActiveSheet.Paste
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

End Sub