Delete cell content if find a space in relative cell reference

Dear all,

The Sub below find all the space in column C and delete the cell contents. How can I rewrite it in relative cell reference so that column C deleted when this Sub starts at cell A1, or space in column G deleted when this Sub starts at E1 etc....

thank you

Sub Deletions()
Dim Rng As Range, cell As Range

'Delete cells with Value set

    Set Rng = Range("C:C")
        For Each cell In Rng
            If cell.Value = " " Then cell.ClearContents
        Next cell

End Sub