Clear contents

[priya_anthony]

Hi experts

Actually i want to clear the contents of a particular column suppose D after row no 36 i.e data till row 36 need not be changed
i need a VBA code for the same

Kindly help

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim Sh As Worksheet
    Dim Rng As Range
    Set Sh = Worksheets("Sheet1")
    Set Rng = Sh.Range("D37:D" & Sh.Rows.Count)
    Rng.ClearContents
End Sub

Change the Worksheet reference to suit.

 

[priya_anthony]

Thanks
Poulsom

It did work