Почему мои данные не вставляются правильно, когда я копирую и вставляю их в цикл For?

Question

Я пытаюсь скопировать данные с одного листа на другой, используя цикл VBA For. По какой-то причине, когда я выполняю приведенный ниже код, данные копируются не в один столбец друг под другом, а в странном формате, как показано ниже.

Sub Macro2()

For i = 110 To 116
For j = 1 To 1


Worksheets("overview of contracts").Activate
Range("A" & i).Select
Selection.Copy
Worksheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Range("C" & j).Select
ActiveSheet.Paste

'Worksheets("overview of contracts").Activate
'Range("B" & i).Select
'Selection.Copy
'ActiveCell.Offset(1, 0).Range("D" & j).Select
'ActiveSheet.Paste

'Range("C" & i).Select
'Selection.Copy
'ActiveCell.Offset(1, 0).Range("E" & j).Select
'ActiveSheet.Paste

 Next j
Next i

End Sub

Результат:

Это исходные данные, которые я пытаюсь получить, скопировав эти данные на другой лист, используя цикл точно в этом формате и последовательности. Пример данных

Answer 1

Я думаю, это то, что вы хотите. Он принимает значения в sheet("overview of contacts") и копирует их значения в sheet("Sheet1") в столбце C, по убыванию строк.

Sub Macro3()
    Dim i As Long
    Dim j As Long
    j = 2
    For i = 110 To 116
        Worksheets("Sheet1").Cells(j, 3).Value = Worksheets("Overview of Contracts").Cells(i, 1).Value
        j = j + 1
    Next i
End Sub