Or in Code
Code:
Sub FillDown()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(Lastrow, 1)).Value = "xxccffkkss12s34"
End Sub
This works on Column A from row 2 to the last row,
as ive just stated in your lastpost Cells comand works like this Cells(RowNumber,ColumnNumber)
or a quick find replace macro would work like this
Code:
Sub FindReplace()
Range("A1").EntireColumn.Replace "*", "xxccffkkss12s35"
End Sub
The * above is a wildcard for anything, this code wont replace blank cells to do this we wouold need to find the lastrow select the range then run 2 replaces 1 with "*" and the other with ""
HTH
Dave