Using .Value property instead of copy paste method to transfer values from one row to next blank row

[anbhavane]

Hello friends..

I want to use Range("Sheet1").value property instead of copy paste method in VBA to transfer values from one complete row to next blank row below. can someone please help in coding.
My range is from (A1:J1)

Regards..

 

[Fluff]

Hi & welcome to MrExcel.
How do you determine which row to copy the values to?

 

[anbhavane]

Hi & welcome to MrExcel.
How do you determine which row to copy the values to?

Thank you for prompt reply..

I want to transfer dynamic data from row range A1:J1 to row A2:J2 and onwards below, but I dont want to use copy pastespecial method. I want to use Sheets(Sheet1).range(A1:J1).value = Sheets(Sheet1).range(A2:J2).value instead to fill the next blank row below.

 

[Fluff]

Will column A on sheet2 contain a value on every used row?

 

[anbhavane]

Will column A on sheet2 contain a value on every used row?

My dynamic data is in columns A to J in Row 1 ie. from A1 to J1. I want to copy those values to A2:J2 and onwards. like A3:J3, A4:J4 and so on... all data will be on same sheet ie. sheet1

 

[Fluff]

Can you please just answer my question?

 

[anbhavane]

Can you please just answer my question?

I have answered your question sir.. all data will be on same sheet... ie. sheet1. Column A till Column J will have different values. each row will record changed values on specific intervals..

 

[Fluff]

You have not answered either of my questions. You want the values to be copied to the first blank row, but you have not said how to determine what that row is.
If you cannot tell me that, there's not much I can do to help.

 

[anbhavane]

You have not answered either of my questions. You want the values to be copied to the first blank row, but you have not said how to determine what that row is.
If you cannot tell me that, there's not much I can do to help.

The values are in number format in all cells of a row

 

[Fluff]

As you cannot be bothered to give me a straight answer to a simple question try this

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 10).Value = Sheets("Sheet1").Range("A1:J1").Value

If that does not do what you want, then you will need to clearly answer my question.