Как использовать две переменные для увеличения ссылки на ячейку в исходном и целевом листах при копировании ячеек в последнюю пустую строку

Question

Я пытаюсь скопировать данные из исходного WS в целевой WS. Я хотел бы знать, могу ли я использовать al oop для достижения результата ниже, чтобы избежать написания длинного количества строк, как показано ниже; Может ли кто-нибудь помочь мне в этом.

Submit ()

Dim sh As Worksheet

Dim sh1 As Worksheet

Dim iRow As Long

Set sh = ThisWorkbook.Sheets("Data_Input")

Set sh1 = ThisWorkbook.Sheets("Data_Source")

       iRow = [Counta(Data_input!A:A)] + 1

    sh.Range("A" & Last_Row + 1).Value = "=IF(B" & Last_Row + 1 & "="""","""",ROW()-1)"

    With sh


    .Cells(iRow, 2) = sh1.Range("C5").Value
    .Cells(iRow, 3) = sh1.Range("C6").Value
    .Cells(iRow, 4) = sh1.Range("C7").Value
    .Cells(iRow, 5) = sh1.Range("C8").Value
    .Cells(iRow, 6) = sh1.Range("C9").Value
    .Cells(iRow, 7) = sh1.Range("C10").Value
    .Cells(iRow, 8) = sh1.Range("d11").Value
    .Cells(iRow, 9) = sh1.Range("G12").Value
    .Cells(iRow, 10) = sh1.Range("G13").Value