Simple macros

[Jatimir]

Welcome,

At the beginning I would like to point out that I'm new to macros. It's basically my first day of using this mechanism. I have encountered the following problem:

I have this kind of data in one worksheet:

BACHORZ	TOMASZ	1983-10
BARTKOWIAK	PATRYK	1983-09
BARTKOWIAK	MICHAŁ	1983-04
BOCIAN	MARIA	1983-12
CHOJNACKA	KATARZYNA	1984-04

<tbody>
</tbody>

I would like to copy it to another worksheet and have it seperated by let's say 3 rows. What I have already accomplished without any significant difficulties is coping these data seperated, but what my macro does is to copy each 3rd line of initial data. I also tried relative cell reference, but without desired result.

I'm sorry for any possible grammar mistakes.

Any help really appreciated.
Radek

 

[Arvapallyk]

Sub CopyPastLast3Rows()
ActiveSheet.Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Select
Range(Selection, Selection.Offset(-2, 2)).Copy Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

 

[Jatimir]

Thank you for your anwser, it does work, but I meant a completely different thing. I would like to do something like this:

In first worksheet I have some data: name, surname, etc.

1. MASZTALERZ ŁUKASZ 1983-10-02
2. MICHALCZYK KATARZYNA 1983-06-01
3. MISIOREK JAN 1983-06-02
4. NAWROT BARBARA 1983-09-01
5. PALACZ WALDEMAR 1983-11-02
6. PAWŁOWSKI TOMASZ 1984-01-01
7. PIECHOCKI TOMASZ 1983-02-01
8. STRYCZNIEWICZ KRZYSZTOF 1983-08-02

and in the second worksheet I would like to have:
1. MASZTALERZ ŁUKASZ 1983-10-02


2. MICHALCZYK KATARZYNA 1983-06-01


3. MISIOREK JAN 1983-06-02


4. NAWROT BARBARA 1983-09-01
etc.

The result of my macro is:
1. MASZTALERZ ŁUKASZ 1983-10-02


4. NAWROT BARBARA 1983-09-01


7. PIECHOCKI TOMASZ 1983-02-01
etc.

Sorry if my explanation isn't clear enough.

 

[Jatimir]

Oh, I think I did it by macro recorder. Anyway thanks for help ★ Arvapallyk