Как растянуть Макрос в Excel

[Limonosu]

Есть Макрос, он копирует значения из нижней строки и вставляет в верхнюю.Как сделать, чтобы после удаления значений 2 строки, он перешёл на 3, 5,7,9,10 таких строк будет 2500.



Sub перестановка()
'
' перестановка Макрос
'

'
Range("A2:O2,Q2").Select
Range("Q2").Activate
Selection.ClearContents
Range("A3:O3,Q3").Select
Range("Q3").Activate
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A3:O3,Q3").Select
Range("Q3").Activate
Selection.ClearContents
Range("A4:O4,Q4").Select
Range("Q4").Activate
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub




И пробовал ещё вот так


Sub Макрос14()
'
' Макрос14 Макрос
'

'
Dim lRow As Long, i As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To lRow Step 2


Next i

End Sub
dim lRow as long, i as long
application.ScreenUpdating = false
lRow = Cells(Rows.Count, 2).End(xlUp).Row
for i = lRow to 3 step -2
range(cells(i, "A3:O3,Q3"),.copy cells(i,"A2")
Rows(i).EntireRow.Delete
next i