Clear cell (VBA code)

If only four cells can't you just clear the content

 
Sheets("Sheet1").Range("A1,C1").ClearContents
Sheets("Sheet2").Range("B2,D3").ClearContents

or

Sub ClearCells()

Dim Rng1 As Range
Dim Rng2 As Range
Set Rng1 = Sheets("Sheet1").Range("A1,C1")
Set Rng2 = Sheets("Sheet2").Range("B2,D3")

Rng1.ClearContents
Rng2.ClearContents
End Sub

VBA Noob