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

[parscon]

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



Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).EntireRow.Copy _
Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)
Application.CutCopyMode = False

Now i need to copy the first row of Sheet1 to latest blank row of sheet5 .

Thank you for your help .

[Bob Phillips]

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

[parscon]

Thank you very much for your great work Xld.

[Aussiebear]

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

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

[Bob Phillips]

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

You seem to have lost an underscore.

[Aussiebear]

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

[Bob Phillips]

It changes one meaningful line to two syntactically incorrect lines.

[Aussiebear]

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?

[Bob Phillips]

It goes to the other range!

[Aussiebear]

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?

[Bob Phillips]

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

[omp001]

... Are there other vba examples where excel knows without it having to be indicated?
[A1].Copy [B1]

[Aussiebear]

Thank you

[Bob Phillips]

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.