You could write

Code:
Worksheets("Data").Range("E9:F39").Value = Application.Transpose(Worksheets("Original Rep This Year").Range("B26:AF27").Value)
By the way, if it's a school project, shouldn't you be doing this yourself?