Send to end of list

[saibb]

Hello All,
I have a row of information on an "Input sheet" and I want to send it to another sheet, to the end of the line of existing information using a macro. I know this can be done as I have seen it before but now I cannot find the posting. Please make it relatively simple as I am relatively new at this.

Thanks

Bilal


Thanks Norie for the reply. Here is what I mean. I have a sheet titled "Input page" and it has 16 balnk insertion fields for my employees to place certain information. Once all of the information is placed, I want them to click on a button (Which I know how to create). This should run a Macro that copies the information from the list and send them to the end of the line of the "Master pt data" sheet, then to return to the "Input page" again and to automatically save the program.

 

[Norie]

Can you give more information?

To get the last row of data in say column A you can use something like this.

Dim LastRow As Long

       LastRow = ActiveSheet.Range("A65536").End(xlUp)

 

[saibb]

OK, I have no Idea what is supposed to happen. I simply need a25 through v25 to be copied then pasted on another sheet named: "Master pt data" on the last line starting from a(row number) to V(row number).

Can this be done?

 

[Kundepuu]

Sub Makro1()
Dim LastRow As Long
Sheets("Master pt data").Activate
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
Sheets("Input page").Activate
Range("A25:V25").Copy Destination:=Sheets("Master pt data").Range("A" & LastRow + 1)
End Sub

 

[saibb]

That one worked perfectly.... Many many many thanks

Bilal