Macro for copyying to another sheet

[klebsiela]

Hello!
I'm newbie in macros and I spent one hour trying with this macro wit
no success.
I have data in one sheet and would like to copy one or more rows t
another sheet one after another.
I succed in recording a macro which does this for one line. Problem i
that when I select next row in my sheet 1, macro does his work but th
row overwrites previosly filled row in Sheet 2, instead of jumping on
line lower which is empty.
How can I force it to do this?

This is my macro:

Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Sheet1").Select
End Sub

I started recording with selected first row. Then I made 'copy'
'switch to Sheet 2', 'paste' and 'Arrow down' and finally back to Shee
1. End of recording.


thanks
Boja

 

[Harald Staff]

Hi Bojan

Here's one way (one line only, remove line breaks if you see any):

Selection.Copy Sheets("Sheet2").Cells(65000, 1).End(xlUp).Offset(1, 0)

 

[klebsiela]

Harald, thank you, it worked.
Boja