My recorded macro gone wrong?

**CrashMatRob** · 03-11-2012, 01:29 PM

Firstly may I say thanks to any members willing to take a look at my problem,
which is, I have recorded a macro to copy the content's from a range of cells
and paste them into a new sheet, then return to the original cell (D7) which is
a merged cell (D7:F7) , end of record.

The problem is, it has copied the content's fine but it has also removed the contents
from the selected cell (D7), therefor there must be something in the code telling it
to delete (D7).
This macro is a lot longer then this so I have only pasted the code below which I think
is relevant.
Many Thanks to anybody that can point me in the right direction.
CrashMatRob.

Range("D7:F37").Select
Selection.Copy
Sheets("Stat's").Select
Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Sheets("2 Player").Select
Range("H7:J37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Stat's").Select
Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
Sheets("2 Player").Select
Range("D7:F7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("D7:F7").Select

**Bob Phillips** · 03-11-2012, 01:49 PM

    With Worksheets("2 Player")
    
        .Range("D7:F37").Copy
        Worksheets("Stat's").Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).PasteSpecial _
            Paste:=xlPasteValues
        .Range("H7:J37").Copy
        Worksheets("Stat's").Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues

        .Range("D7:F7").Select
    End With

**CrashMatRob** · 03-11-2012, 03:21 PM

Thanks Bob,
I've had a look but still can not get it to work the way I would like,
please bear in mind I'm pretty new to this, I thought it was just a case in changing
something in the code I pasted.

Cheer's CrashMatRob.

**shg** · 03-11-2012, 04:17 PM

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.

**protonLeah** · 03-11-2012, 04:27 PM

waiting for edit per mod request

**protonLeah** · 03-12-2012, 11:09 PM

Try:

Option Explicit
Sub test()
    Sheets("2 Player").Range("D7:F37").Copy _
        Destination:=Sheets("Stat's").Range("C" & Sheets("stat's").Cells(Rows.Count, "C").End(xlUp).Row + 1)
    Sheets("2 Player").Range("H7:J37").Copy _
        Destination:=Sheets("Stat's").Range("F" & Sheets("stat's").Cells(Rows.Count, "F").End(xlUp).Row + 1)
End Sub