how use VBA in excel move active cell!

Sub instab()
    Dim flag As Boolean
    Dim rs1 As String
    Dim rs2 As String
    flag = True
    Range("A5:A6").Select
    With Application.FindFormat.Font
        .Subscript = False
        .ColorIndex = 5
    End With
    While flag
        Cells.Find(What:="小计", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , MatchByte:=False, SearchFormat:=True).Activate
        ActiveCell.Offset(1, 0).Select

本文地址：http://com.8s8s.com/it/it21688.htm