Paste Values Macro

I have been using the following code but need help in editing it.


Sub PasteValues()
Dim cl As Range
ColRef = InputBox("Insert Column Range - Paste Formulas to Values")
For Each cl In Range(ColRef & "1:" & ColRef & Range(ColRef & "5000").End(xlUp).Row)
cl = cl.Value
Next cl
End Sub
I want it to do the same thing by pasting values throughout a column, but I need it to skip cells if column A is empty.

I have attempted to edit the code by implementing previous code written for the opposite situation where a formula is pasted only if data exists in A, but was unable to get it to work. Here is that code.


Sub CentralDivision()
Dim ws As Worksheet
Dim strCol As String
Dim Cell As Range, Rng As Range

Application.ScreenUpdating = False

Set ws = Worksheets("CENTRAL DIVISION-2007")

strCol = InputBox("Entrer the column you want the formula in please.", "ENTER THE COLUMN", "Your Column Here")................