Sub 一定条件を満たした場合､行をスキップ移動する()
    
    For 行数 = 2 To 6 '2行目から6行目まで処理する
    
        If Range("B" & 行数) = 0 Then '0の場合
        
            GoTo ここに飛ぶ '「ここに飛ぶ：」の行まで飛ぶ
        
        Else '0ではない場合は「済」を入力する
        
            Range("B" & 行数) = "済"
        
        End If
    
    Next 行数

ここに飛ぶ:

End Sub