Private Sub CommandButton1_Click()


Application.ScreenUpdating = False
    Sheets("Session").Range("a1:a2000").Copy
    Sheets("Session").Range("y1, af1, cw1").PasteSpecial xlPasteValues


Application.ScreenUpdating = False
    Sheets("Session").Range("b1:b2000").Copy
    Sheets("Session").Range("ab1, ac1").PasteSpecial xlPasteValues


Application.ScreenUpdating = False
    Sheets("Session").Range("v1:v2000").Copy
    Sheets("Session").Range("bg1, bs1, ca1").PasteSpecial xlPasteValues


Application.ScreenUpdating = False
    Sheets("Session").Range("g5:g2000").Copy
    Sheets("Session").Range("ba1, bc1, be1").PasteSpecial xlPasteValues


Application.ScreenUpdating = False
    Sheets("Session").Range("t1:t2000").Copy
    Sheets("Session").Range("di1").PasteSpecial xlPasteValues


Application.ScreenUpdating = False
    Sheets("Session").Range("x1:x2000").Copy
    Sheets("Session").Range("cx1").PasteSpecial xlPasteValues



End Sub