Solved: Accurate specific cells must be maintained in the concrete columns on another sheet

[k0st4din]

Hello friends, I came across a great dilemma to me how things happen in the mixed cells.
Here's the problem:
In yellow I have ticked the box in which I write, in Sheet1 R: T, where I described what must be saved!
My idea is after its stuff in the yellow cells and when I pressed the button to transfer written in sheet2 in cells just mentioned and write things cumulatively, ie today I write things, I press the button, and transferred to sheet2, 2-3 hours again write something in sheet1 and press the button again and again recorded, but in the past, and so to the end, ie to be cumulative.
Ie Paste Special Value
Do you have any idea how could this happen? Attach an example and describe here which cell in which row (column) must be carried.
C11 >> Sheet2 column I
C9 >> Sheet2 column D
F18 >> Sheet2 column A
F19 >> Sheet2 column E
H5 >> Sheet2 column B
I11 >> Sheet2 column K
J18 >> Sheet2 column F
J5 >> Sheet2 column C
L18 >> Sheet2 column G
L19 >> Sheet2 column H
Much of what is written will not read it, but it is important to focus on only the yellow cells of sheet1.
I would be very grateful if you could help me.

[sassora]

C11 >> Sheet2 column I
C9 >> Sheet2 column D
F18 >> Sheet2 column A
F19 >> Sheet2 column E
H5 >> Sheet2 column B
I11 >> Sheet2 column K
J18 >> Sheet2 column F
J5 >> Sheet2 column C
L18 >> Sheet2 column G
L19 >> Sheet2 column H

Use the following code for your button. The cells are based on what you posted but if you need to, it will be simple for you to change them.

Dim LastRow As Long

With Sheets("Sheet2")

NumberRows = .Range("A1").CurrentRegion.Rows.Count
.Range("I" & NumberRows + 1) = Range("C11")
.Range("D" & NumberRows + 1) = Range("C9")
.Range("A" & NumberRows + 1) = Range("F18")
.Range("E" & NumberRows + 1) = Range("F19")
.Range("B" & NumberRows + 1) = Range("H5")
.Range("K" & NumberRows + 1) = Range("I11")
.Range("F" & NumberRows + 1) = Range("J18")
.Range("C" & NumberRows + 1) = Range("J5")
.Range("G" & NumberRows + 1) = Range("L18")
.Range("H" & NumberRows + 1) = Range("L19")

End With

[k0st4din]

I can tell you this - Precise, accurate, fast and always dedicated!
Infinite thanks very much. :)