VBA PasteValues

[Noz2k]

Basically I have a range of values which I want to copy from 1 sheet into another row on a mastersheet, but I can't seem to get it to work.

Here is my code currently

If Sheets(p).Range("S3") = "Total" Then
    Sheets(p).Range("C" & rng1, "Q" & rng1).Copy wsm.Range("C1").Offset(X, 0).PasteSpecial(xlPasteValues)
    Sheets(p).Range("S" & rng1).Copy wsm.Range("AE1").Offset(X, 0).PasteSpecial(xlPasteValues)
ElseIf
Etc, Etc
End If

Where p is the sheet name to copy from, rng1 is the row to copy and X is the row to paste to.

Have googled this and found a couple of suggestions which don't seem to work for me.

 

[ChrisDaniels]

Change wsm to Sheets(Sheet to copy to)

 

[VoG]

Try like this

If Sheets(p).Range("S3") = "Total" Then
    Sheets(p).Range("C" & rng1, "Q" & rng1).Copy
    wsm.Range("C1").Offset(X, 0).PasteSpecial xlPasteValues
    Sheets(p).Range("S" & rng1).Copy
    wsm.Range("AE1").Offset(X, 0).PasteSpecial xlPasteValues
ElseIf

 

[Noz2k]

Thanks, have actually just left work but will try both solutions out on Monday morning, cheers for the help

 

[Noz2k]

All works, thanks very much