VBA - Clear Content till last content cell of column

[rsolanki]

Hello Magicians,

I am using below line of code in my VBA sub but problem is content in cell is limited but its clearing out from G2 to G100000 which i have set but i want to make sure that vba automatically determine last cell in which there is a content and clear the whole range of content (Not Formating, only content)

Worksheets("sheet1").Range("G2:G100000").ClearContents

Thanks in advance

 

[iggydarsa]

Why bother checking while you can clear the whole column:

Worksheets("sheet1").Range("G2:G" & Rows.Count).ClearContents

 

[iggydarsa]

but if you insist of knowing the last used cell:

Sub Clr()
    lr = Worksheets("sheet1").Range("G" & Rows.Count).End(xlUp).Row
    Worksheets("sheet1").Range("G2:G" & lr).ClearContents
End Sub