用VBA怎么筛选以下数据

求助：
如下图所说：

之前有在2003中修改成功，但是在2007中无论怎么改都不行，请高手指点。
以下是我用的程式
Sub DelSpace()
    '删除空格
    Dim rn As Range
    For Each rn In ActiveSheet.UsedRange
        rn = Replace(rn, "G4", "I10004")
    Next
End Sub
附上原资料和程式 麻烦高手指点。 resume.rar (283 Bytes)

[local]1[/local]附上程式，不知道之前为什么上传不了