Solved: copy the first row on sheet to lastest blank row of another Sheet .

I have a VBA code that will copy the latest row of sheet to another blank row on another sheet .

[vba]

Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).EntireRow.Copy _
Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)
Application.CutCopyMode = False
[/vba]
Now i need to copy the first row of Sheet1 to latest blank row of sheet5 .

Thank you for your help .

[vba]
Worksheets("Sheet1").Rows(1).Copy _
Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)[/vba]

Thank you very much for your great work Xld.

Quote:

---

Originally Posted by xld

[vba]
Worksheets("Sheet1").Rows(1).Copy _
Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)[/vba]

---

How does Excel know what to do with the copied material?

Quote:

---

Originally Posted by Aussiebear

How does Excel know what to do with the copied material?

---

You seem to have lost an underscore.

Perhaps I have ( since I copied your code) I not sure where it happened..... but how does that effect the outcome?

It changes one meaningful line to two syntactically incorrect lines.

I understand the purpose of the underscore. I am more interested in the outcome of the two lines of code. Again I ask, How does Excel know what to do with the copied code?

It goes to the other range!

So effectively you need not tell Excel to paste the data. Are there other vba examples where excel knows without it having to be indicated?

Copy has a Destination argument, so the paste is implicit.

Quote:

---

Originally Posted by Aussiebear

... Are there other vba examples where excel knows without it having to be indicated?

---

[vba][A1].Copy [B1][/vba]

Thank you

That is not another one, it is just another way of the same sort of copy paste we were talking about. [...] is a shorthand (and horrible) way of calling Evaluate.