[a_axe]

sepembra, например - воспользоваться кодом VBA наподобие приведенного ниже.

Предполагается использование Excel, данные должны располагаться в столбец.
Код проверяет, сколько ячеек столбца выделено, если это число не равно 1500 - выделяет 1500 ячеек, считая от активной ячейки (ячейка белого цвета в выделенном диапазоне) вниз.
Если уже выделено 1500 ячеек - смещает выделение на 1500 ниже.
После чего копирует выделенные ячейки - вставлять данные нужно самому, так как нет понимания, что вы делаете с данными дальше.

Код

Код:

Public Sub rows_copy()
    If Selection.Rows.Count <> 1500 Then
        ActiveCell.Resize(1500, 1).Select
    Else
        Selection.Offset(1500, 0).Select
    End If
    Selection.Copy
End Sub

Полагаю, скрины с фактическими адресами реальных людей не должны выкладываться в неограниченный доступ исходя из законодательства о защите персональных данных. Лучше уберите.