Copy from Sheet 1 to Last available cell in specified column

[Guest]

Hi there,

In sheet one, i have simulated a userform to enable users to enter data (at
their request). I am trying to find the most efficient method to take the
data entered in specific rows of Sheet 1, and insert into the last available
row of sheet 2.

Any ideas on how i can accomplish this?

 

[Guest]

You can find the last row in sheet2 with

with worksheets("Sheet2")
set rng = .Cells(rows.count,1).End(xlup)
End with

this assumes there will be data in the first column.

After that it should be copy and insert - something you can easily get with
the macro recorder if you don't already know how.

 

[Guest]

Hi

It would be something along the lines of

Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Value =
ActiveCell.Value

Wigi

 

[Guest]

Sorry, contrary to some boards, the code tags can't be used here it seems.
I'll remember for the future ;-)

Wigi