非表示だったら、

If Rows(j).Hidden = False Then 'ｾﾙが表示だったら、
'　これを使って,非表示セルを飛ばした連番つけができる。