请各位大神看看这个宏录制有什么问题

yangy_007

各位大虾大神，
本人是excel菜鸟，电脑是excel07英文版。
现在想实现一个简单的操作，将下图左边数据按照整理格式拷贝至右边。
目前录制宏，点编辑看提示错误：
Sub Macro2()
'
' Macro2 Macro
'
'
    Range("B2").Select
    Selection.Copy
    Range("D2").Select
    ActiveSheet.Paste
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E2").Select
    ActiveSheet.Paste
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F2").Select
    ActiveSheet.Paste
    Range("B5").Select
End Sub

			姓名	籍贯	大学
姓名	张三		张三	江苏	清华大学
籍贯	江苏
大学	清华大学
姓名	李四
籍贯	浙江
大学	天津大学
姓名	王五
籍贯	天津
大学	南开大学

LangQueS

◇◇
建议楼主压缩上传简明扼要的 Excel 问题附件及加以说明，最好能做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)
  
Excel Home论坛学习及使用完全攻略(新人必读)    http://club.excelhome.net/thread-449518-1-1.html