Shorter way to right this copy and Paste code

[gheyman]

is there a shorter way to right this code? I am copying a column from a table. I am doing this for multiple columns, so it would be helpful if there was a shorter version. Note, I cannot copy and paste the entire table because not all column get pasted to the other location. And the order of the columns are different.

Thanks

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("PP_Material_Assoc_Costs").Select
   
    Range("PP_Material_Assoc_Costs[TASK ID]").Select
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Material ID]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Ref ID]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Resource]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Amount]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("L3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Link Qty]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("M3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Link Spead]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("N3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Curve]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("T3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("PP_Material_Assoc_Costs").Select
    Range("PP_Material_Assoc_Costs[Spread Method]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Material Assoc Costs").Select
    Range("U3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

 

[SQUIDD]

hi so allot of repitition in there, but your 1st 2 copy and paste may work like the below, untested and please test on a data copy.

if it works tidy up the others?

    Range("PP_Material_Assoc_Costs[TASK ID]").Copy
    Range("'Material Assoc Costs'!A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  
    Range("PP_Material_Assoc_Costs[Material ID]").Copy
    Range("'Material Assoc Costs'!B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False