Super !!! Just a one liner. Will this solve the above problem? (if
there are empty cells in between A1 and last row in column A)

Mike Fogleman wrote:
Try this:

Range("C1", Range("A1").End(xlDown)).Offset(0, 2).FillDown

Explanation: Range("C1", -is what to filldown
Range("A1").End(xlDown) -is how far to filldown (End of column A)
.Offset(0, 2) -is which column from Range("A1") to filldown (2 columns to
the right =C)

Mike F