название темы: скопировать ячейки с заданным шагом Marina98, не включая первую, а начиная с первой при описании задачи используйте точные и лаконичные фразы
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Есть разница - не нужно качать большой файл. Как Вы не поймёте: для того, чтобы помочь Вам, совсем необязательно показывать все 8000 строк. Зачем потенциальным помощникам видеть их все?
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim n As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("C1:C" & iLastRow).ClearContents
n = 1
For i = 1 To iLastRow Step 8
Cells(n, "C") = Cells(i, "A")
n = n + 1
Next
End Sub
Marina98, если это формула Настя_Nastya, то вставить в первую ячейку и протянуть вниз до конца ваших 8000 строк (или сколько их там). если же макрос Kuzmich, то он будет при запуске все делать сам -вам лишь его запустить...