求助：这个VBA程序哪里错了？怎么改？

用脚

Sub 插入广告费记录()
    '
    '插入广告费记录 Macro1
    '
   
    Dim m As Integer
    Dim n As Integer
    Dim i As Integer
    Dim sta As Range
    Sheets("合同详表").Select
    m = Application.WorksheetFunction.CountIf(Range("G:G"), "广告费")
    Set sta = Sheets("动态表").Range("广告费区域")
    n = Range("广告费区域").Rows.Count - 2
    i = m - n
    If i > 0 Then
    Sheets("动态表").Select
    sta.Offset(n, 0).Resize(1, sta.Columns.Count).Select
    Selection.Resize(i, sta.Columns.Count).EntireRow.Insert
    ElseIf i < 0 Then
    MsgBox "数据错误，请检查"
    Else
    End If
    End Sub

pzhphy

最好提供附件，别人才好帮你。