各位高人，我习惯了用Excel的宏，又买了VB教程，想自学成才；但由于不是科班出身，一个小问题已经困扰7日，不得而解啊，请指点迷津。

我的问题是：我有一段代码，是循环调用的，如下述第一部分； 那么如何把它正确地组织到我的EXCEL的宏（见下述第二部分）里边啊？

第一部分：
——————————————————————————
Sub aaa(i As Long)
    Sheets("Term").Select
    Range("S" & i & ":AB" & i).Select
    Selection.Copy
    Sheets("New Test").Select
    Range("O" & i).Select
    ActiveSheet.Paste
End Sub
    For i = 1 To 163
              aaa i
    Next
————————————————————————————

第二部分：
Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+q
'
    Application.ScreenUpdating = False

' 此处省略一些无关代码
' 我想把前述第一部分加到此处（但总出错，说我“ByRef参数类型不符”或者什么没有定义好？或者说我缺少半个括号...云里雾里啊）

' 下边是接下来的无关的代码
    Range("AG3:AT3").Select
    Selection.Copy
    Sheets("Cnclsn").Select
    Application.ScreenUpdating = True
End Sub

[ 本帖最后由 O涅槃O 于 2012-12-21 08:50 编辑 ]

谢谢风吹过大侠的好心相助！
按您的指点，我的全部代码改成了下边的写法。在我运行第二个模块的程序的时候，被指出Call aaa i 这里“缺少：语句结束”。请指教。

在第二个模块里：
——————————————————————————
Sub aaa(i As Long)
    Sheets("Term").Select
    Range("S" & i & ":AB" & i).Select
    Selection.Copy
    Sheets("New Test").Select
    Range("O" & i).Select
    ActiveSheet.Paste
End Sub
————————————————————————————

在第一个模块里：

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+q
'
    Application.ScreenUpdating = False
    For i = 1 To 163
             Call aaa i
    Next

    Range("AG3:AT3").Select
    Selection.Copy
    Sheets("Cnclsn").Select
    Application.ScreenUpdating = True
End Sub

谢谢指教。我改正了call的写法，却仍然有下述红字所说的错误：

Sub bbb()
    For i = 1 To 163
              Call aaa(i)  编译错误：ByRef 参数类型不符
    Next
（接下来是复制和粘贴的指令，这里省略了）
End Sub

上述是写在模块2里边的。

我已经预先把aaa写在同一个EXCEL文档的模块1里边了，全文如下：
Sub aaa(i As Long)
    Sheets("Term").Select
    Range("S" & i & ":AB" & i).Select
    Selection.Copy
    Sheets("New Test").Select
    Range("O" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 End Sub
还请继续指导一下。谢谢。