Macro needed for a new row and a new column.

Not sure if this is what you're after, but making some assumptions it might work. This code inserts a row above the current cell then inserts a space character into columns A:X of that new row. It then inserts a column to the left of the active cell and inserts a space character in the first 100 cells in that column.

Sub insertRC()
    ActiveCell.EntireRow.Insert
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 24)).Value = " "
    ActiveCell.EntireColumn.Insert
    Range(Cells(1, ActiveCell.Column), Cells(100, ActiveCell.Column)).Value = " "
End Sub

If that's not what you're looking for you will need to provide more details.

Thanks PjoAcquin. It worked. But i want to ask this:

Why does running this macro twice give error?

 
Sub fill_final()
'
' fill_final Macro
' Macro recorded 11/3/2008 by ***.
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Range("A1:V100").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
' error in above line
Selection.FormulaR1C1 = " "
End Sub

Is it because there is no blank cell to select?
How can I modify the code so that I don't get an error if I repeat run the macro.

Best,
Charles.