Copy Values

[adamsm]

Hi anyone,

How could I write a code that would copy the cell values P7:P12 from sheet1 to the cells I113:I118 of sheet2?

Any help would be kindly appreciated.

 

[Smitty]

Why not just record a macro copying, then goto the other sheet and Paste Special-->Values?

Once you trim the select statements out you should get something like this:

ActiveSheet.Range("P7:P12").Copy
Sheets("Sheet2").Range("I113").PasteSpecial xlPasteValues

HTH,

 

[nightcrawler23]

Use,

Sub copyData()
Sheets("Sheet1").Range("P7:P12").Copy Destination:=Sheets("Sheet2").Range("I113:I118")
End Sub