Sub FillDataFromInputSheet()
Set wsInput = ThisWorkbook.Sheets("InputSheet")
lastRow = wsInput.Cells(wsInput.Rows.Count, "A").End(xlUp).Row
dataToCopy = wsInput.Range("A2:B" & lastRow).Value
For i = LBound(dataToCopy, 1) To UBound(dataToCopy, 1)
Set wsTarget = ThisWorkbook.Sheets("Sheet1")
Dim nextRow As Long
nextRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
wsTarget.Range("A" & nextRow & ":B" & nextRow).Value = Array(dataToCopy(i, 1), dataToCopy(i, 2))
Next i
End Sub |