Det finns flera sätt, ett är att helt enkelt använda klipp ut/kopiera/klistra in:

Range("A1").Cut
Range("A2").Paste
Range("B1").Copy
Range("B2").PasteSpecial ...

Sen finns Range("A1").ClearContents för att ta bort format och text, däremot inte bilder. Bilderna kan du i så fall ta bort genom att antingen ge dem smarta namn ("ShapeA1"), eller loopa igenom alla shapes och använda Shape.BottomRightCell/TopLeftCell.