Copy with macro columns between 2 different workbooks

[abjac]

Hi I have below long code which are nearly working. Its just a recorded code.
It copy selected columns between workbooks. I need help to do following.

Make the code much shorter.
Correct the code so I don't get problem with shape and range, which I sometime does, and get and error.
Both workbooks will be open on but will be good to be able to name the sheets with a input box, if its possible.


Please have a look and see if you can make some good changes.
Thanks in advance
Sincerely Abjac

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 17-09-2014 by y99dew
'

'
    Windows("CheckDDSetups .xls").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("A3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("B3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("C3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("D3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("E3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("F3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("H2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("G3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("I2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("H3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("H19").Select
    Windows("CheckDDSetups .xls").Activate
    Range("J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("K3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("I3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("L2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("J3").Select
    ActiveSheet.Paste
    Range("H33:H44").Select
    Windows("CheckDDSetups .xls").Activate
    Range("P2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("O3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("Q2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("N3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("R2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("P3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Windows("robottool.xls").Activate
    Windows("CheckDDSetups .xls").Activate
    Range("S2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("Q3").Select
    ActiveSheet.Paste
    Windows("CheckDDSetups .xls").Activate
    Range("T2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("IU30").Select
    Range("T2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("T2:AR2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("robottool.xls").Activate
    Range("S3").Select
    ActiveSheet.Paste
    
   
    Range("O1").Select
End Sub