ClearContents method deletes the contents of the range but leaves the formatting intact.
Sub content() Columns("D:D").ClearContents End Sub