Я действительно новичок в VBA и пытаюсь скопировать серию ie диапазонов, и мне нужно вставить один за раз (для работы со смещением).
Это то, что у меня есть: 
И это то, что я хочу: 
Чтобы сделать это, я думаю, что копировать на основе диапазона только нечетные диапазоны и вставить в столбец «F» и скопировать только четные диапазоны и вставить в столбец «N».
На данный момент у меня есть этот код , Я работаю очень хорошо, но у меня есть 20 нечетных диапазонов и 20 четных диапазонов. Мне нужен простой способ соединить эти 20 повторений
Range("A3:G7").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("A15:G19").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("A27:G31").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
(здесь я просто показываю 3 повторения кода).
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Car").Activate
Range("F2:AA250").Delete
Sheets("Summary").Activate
Range("A3:G7").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("A15:G19").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("A27:G31").Copy
Worksheets("Car").Cells(Rows.Count, "F").End(xlUp).Offset(RowOffset:=2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("F2").Activate
Application.ScreenUpdating = True
End Sub