I simply want to use the value in C2 to populate the rest of column C with the same value all the way to the bottom of the data in the sheet. 

```
Sub Testfill1()
'
' Testfill1 Macro
'

'
    Sheets(1).Select
    lngEndRow = lastCellBlock

    Range("C2:C" & lngEndRow).FormulaR1C1 = "1"
End Sub

```