Clear contents with in a range in Excel through VB

Hi,
I am trying to clear contents for column A to D.
I used below statement which worked.


Sheet1.Range("A:D").ClearContents

Now, I have a scenario where in I should not delete value in cell A1.
My range is from A2 till Col A end and Cols B,C and D.
Can anyone suggest how can we get this range cleared
Thanks in advance

Code:

---

lr = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
If lr > 1 Then Sheet1.Range("A2:D" & lr).ClearContents

---

Thank you.This solved my issue.