Макросы Excel, повторяющие данные в несколько строк при вставке на другой лист

Question

Я сделал расчетный лист для своего проекта.Есть несколько входов на этот лист.Одна из переменных - i , которая изменяет результаты.Изменение i изменяет значение строки, которое я хочу на листе Missing Num.Моя цель - скопировать и вставить значения этой строки от Sheet 1 до Missing Num для каждого i .

Я написал код для копирования и вставки, но по некоторым причинам он повторяет значения.Пожалуйста, посмотрите на эту ошибку.Прикреплен скриншот.

Sub AddBigNumbers_1()
'Worksheets("Input Sheet").Range("B4:F4").Merge
'Range("B4").Value = "i=1"
Dim i As Integer, j As Integer, i_max As Integer, j_max As Integer, k As Integer, i_min As Integer, l As Integer
'Call OptimizeCode_Begin
i = 0
j = 0
i_max = Range("D8").Value 'Max value of i that can be entered
j_max = 31 'Range of columns - 6 Num to 36 Num
i_min = Range("D5")
k = 0
For i = i_min To i_max Step 1
    Worksheets("Missing Num - Selec Pt").Range("C5").Value = Worksheets("Missing Num - Selec Pt").Cells(i + 3, 5).Value   'A3 cell is in which i value is stored

        Application.Calculation = xlCalculationManual
        Application.ScreenUpdating = False
        Application.DisplayStatusBar = False
        Application.EnableEvents = False                  
            For j = 1 To j_max Step 1
                Worksheets("Missing Num - Selec Pt").Cells(3 + i, 5 + j).Value = Worksheets("Sheet1").Cells(40, 3 + j).Value
                'RHS is original strip from which data has to be extracted & LHS where data has to be entered
            Next j
        Application.EnableEvents = True
        Application.DisplayStatusBar = True
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        k = 0
Next i[Screenshot][1]
End Sub