Need help using VBA to select entire column as Range

[Roxie#2013]

HI..I'm hoping my issue is an easy solve for experts in this forum. I have code that technically works but only because I have made the range a single cell. I simply cannot figure out how to tell VBA to search the entire column for a specific value

Sub CleanDate()
Dim OriginalText As String
Dim CorrectedText As String

OriginalText = Range("q14750").Value

CorrectedText = Replace(OriginalText, "0001-01-01", "")

Range("q14750").Offset(, 0).Value = CorrectedText
End Sub

thank you.