exl宏求助，如何改成循环

hgy327

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B117:W117").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("N5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X117").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B118:W118").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("N5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X118").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B119:W119").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("N5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X119").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
复制一行数据到B4计算后，复制N5的结果，在结尾粘贴结果值，下行反复，如何反复计算100次以上？？

约定的童话

文件没有吗？用for循环，录制的话不好使