Sub Import()
'
' Import Macro
'
'
Range("B26:AF27").Select
Selection.Copy
Sheets("Data").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B30:AF31").Select
Application.CutCopyMode = False
Selection.Copy
Range("E48").Select
Sheets("Data").Select
Range("I9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B36:AF37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("P9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B40:AF41").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("T9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B46:AF47").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("AA9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B50:AF51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("AE9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B28:AF28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("K9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B32:AF32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("L9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B38:AF38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("V9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B42:AF42").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("W9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B48:AF48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("AG9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep This Year").Select
Range("B52:AF52").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep Last Year").Select
Range("B26:AF27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep Last Year").Select
Range("B36:AF37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("R9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Original Rep Last Year").Select
Range("B46:AF47").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("AC9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub