VBA for copying a range to new sheet in same workbook

[sahrish]

I have a sheet im using to create receipts for my business. I have created a macro that captures that info and transfers it to a record of invoices sheet and then deletes it.
Now I want to create a button that will let me copy over a copy of that receipt on the same workbook but I only need certain cells in the receipt, not the entire receipt.
For example. I made a receipt from the tab called "Receipt". I want to move over range A1:J40 to a new tab called Receipt1, then receipt2 then receipt 3....
I can use the following and it copies over the entire sheet. I only want the range.
Also, Is there a way to make the tab called Receipt the active sheet once i run the macro and not the new sheet that was created?

I have the following to create a new tab for the entire sheet

Sub Copypagerange()

Dim WSCount As Long
WSCount = Worksheets.Count

activesheet.Copy after:=Sheets(Sheets.Count)
activesheet.name = "Receipt" & WSCount + -2

End Sub

 

[NoSparks]

If I understand right what you're wanting maybe this will do it

Sub Copypagerange()

Dim i As Long
Dim srcWS As Worksheet

Set srcWS = ActiveSheet
Application.ScreenUpdating = False

srcWS.Range("A1:J40").Copy

For i = 1 To 3      '3 is number of receipt sheets required
    Worksheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Receipt" & Worksheets.Count - 2
    ActiveSheet.Range("A1:J40").PasteSpecial xlPasteAll
    Range("A1").Select
Next i

srcWS.Select

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub