Copy selection range and paste in a specific sheet

[Unexpc]

Hi guys
i want when i select a range, after that with run a macro, doing this 3 steps
Paste in a sheet that named Sheet from cell A3
after that print from a sheet that named Print
after that clear contents from A3 until rows of sheet that named Sheet be ended...

 

[maabadi]

Try this:

Sub CopyPaste()
Dim ShP As Worksheet, Lr As Long, Lm As Long
Set ShP = Worksheets(Range("A3").Value)
Lr = Range("A" & Rows.Count).End(xlUp).Row
Lm = Application.WorksheetFunction.CountIf(Range("A3:A" & Lr), Range("A3")) + 2
Selection.Copy ShP.Range("A2")
Range("A3:A" & Lm).ClearContents
End Sub

 

[Unexpc]

Try this:

Sub CopyPaste()
Dim ShP As Worksheet, Lr As Long, Lm As Long
Set ShP = Worksheets(Range("A3").Value)
Lr = Range("A" & Rows.Count).End(xlUp).Row
Lm = Application.WorksheetFunction.CountIf(Range("A3:A" & Lr), Range("A3")) + 2
Selection.Copy ShP.Range("A2")
Range("A3:A" & Lm).ClearContents
End Sub

Show error (Subscript out of range) i have tested it in a sheet that named Work & another sheet that named Paper
i want doing this function
Copy selection range from any sheet
Paste just in specific sheet that named Sheet
Print from specific sheet that named Print
Clear Contents A3:excel rows end in that specific sheet that named Sheet

 

[Unexpc]

and another thing i have a colored cell plus in selection range and i want copy this cell and paste in specific cell in Sheet(for example in G2)...

 

[maabadi]

Please upload exact code you used.
Are your sheet name is exact the cell value at A3? & it doesn't have extra space

 

[Unexpc]

Please upload exact code you used.
Are your sheet name is exact the cell value at A3? & it doesn't have extra space

i use your code
please see this, for step 1 (Copy/Paste)

 

[maabadi]

Please upload exact code you used.
And I don't see your sheet name that you wanted at cell A3 also.

 

[Unexpc]

Please upload exact code you used.
And I don't see your sheet name that you wanted at cell A3 also.

The sheet added after that i take 2 photos, sorry i was wrong, i forgot added this sheet until i took screenshot (Photo3). you think the workbook have 3 sheet (Work-Sheet-Print)
i use your code with nothing change... what am i do?

 

[maabadi]

1. add sheetname that you want code run to it to Cell A3 at Activesheet(where macro Run)
2. I don't Know what is exact color code you used at your sheet. what is your one cell always has that color to I take color code from that cell.

 

[Unexpc]

1. add sheetname that you want code run to it to Cell A3 at Activesheet(where macro Run)
2. I don't Know what is exact color code you used at your sheet. what is your one cell always has that color to I take color code from that cell.

1. i don't know i thing i doing wrong, please say how can i do this
2. color code: #70AD47