@keitakushima シート内の可視セルの１つ目 Cells.SpecialCells(xlCellTypeVisible).Item(1).Address ではどうでしょうか？
0
0
0
0
0
