我想让这个宏命令循环给我往下填充公式，结果就是只填充一个，就停

Sheets("表1").Select
    Range("A1").Select
10  Sheets("辅助单估表公式").Select
    Range("E3:U31").Select
    Selection.Copy
    Sheets("表1").Select
    ActiveCell.Offset(0, 0).Range("E3:U31").Select
    ActiveSheet.Paste
    
    Sheets("表1").Select
    ActiveCell.Offset(29, 0).Range("A1").Select
    If ActiveCell.Value = "项目编码" Then
    GoTo 10
    End If
我想让这个命令循环给我往下填充公式，结果就是只填充一个，就停了.那位帮帮俺？