Help needed for copying cells from one sheet to another

Closed
r.rafailov
Posts
4
Registration date
Wednesday June 22, 2016
Status
Member
Last seen
June 24, 2016
- Jun 22, 2016 at 06:59 AM
Hello,

Guys i'm new here, so pleace don't be hard on me :)
I need your help for doing the following:
There is one column A filled with names on sheet1, there is a specific page in sheet 2, the goal is to copy the first name in col. A sheet1 to and paste it on a specific place in sheet 2; than take the second name, make a copy of sheet 2 and paste the second name to the specific place in sheet 2(1).

I recorded a macro and i can upload the file if needed.
Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Sheets("ORDER").Select
Sheets("ORDER").Copy After:=Sheets(2)
Sheets("Main").Select
ActiveCell.Select
Selection.Copy
Sheets("ORDER (2)").Select
ActiveSheet.Paste
Sheets("ORDER (2)").Select
Sheets("ORDER (2)").Name = "Êàëèí Ïåòðîâ Ìèõàëåâ"
Sheets("ORDER").Select
Application.CutCopyMode = False
Sheets("ORDER").Copy After:=Sheets(3)
Sheets("Main").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
Sheets("ORDER (2)").Select
ActiveSheet.Paste
Sheets("ORDER (2)").Select
Sheets("ORDER (2)").Name = "Âåíåëèí Ïåòðîâ Íàïîëåîíîâ"
Sheets("ORDER").Select
Application.CutCopyMode = False
Sheets("ORDER").Copy After:=Sheets(4)
Sheets("Main").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
Sheets("ORDER (2)").Select
ActiveSheet.Paste
Sheets("ORDER (2)").Select
Sheets("ORDER (2)").Name = "Ëú÷åçàð Âëàäèìèðîâ Ìåòîäèåâ"
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub


Thank you in advance. I'll appreciate any help