data entry

[sna]

Hi Dear

I need to transfer data from C2:C6.
For example I input 3 in C2 it would transfer data from C2:C6 to row 3 of the output data.
I also attached a sample file uploaded here.

[puriwutpokin]

try it

Code: Select all

Sub Sumpan()
Dim r, t As Long
t = Sheet1.[c2]
r = Sheet1.Range("a" & (10 + t)).Row
Sheet1.Range("a" & r) = Sheet1.Range("c2")
Sheet1.Range("b" & r) = Sheet1.Range("c3")
Sheet1.Range("c" & r) = Sheet1.Range("c4")
Sheet1.Range("d" & r) = Sheet1.Range("c5")
Sheet1.Range("e" & r) = Sheet1.Range("c6")
Sheet1.[c2:c6].ClearContents
End Sub

[sna]

Thank you