Как скопировать определенное количество строк?

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

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