One way:

ActiveSheet.Range("D13:D15,C19:J19").ClearContents
Sheets("TEMP").Range("pricing").Delete Shift:=xlShiftUp


In article ,
gavmer wrote:

i am after a simple code to delete the contents of cells D13-15,
C19-J19 and then move to worksheet 'TEMP'....please.

I am also after a simple code that will do the above and also, delete
rows within a cell range on sheet 'TEMP' called 'pricing'

This is probably a simple task to most but i am as beginner as they
get!!