A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
One way:
You could enter something like this formula in your designated columns. For example in row 1:
=IF(A1<>"", 0,"")
which would display a null string (appear blank) until you entered a value in column A . Copy down as far as needed. Then as you enter values in column A, the default value will show up in your target column(s). You can then overwrite the default formulas with other values if desired.
Another way would be to use an event macro. For example, you could put this in your Worksheet Code Module (Ctrl- or right-click the sheet tab and choose View Code):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vDefaultArray As Variant
'put default values for columns B, C, etc...
'Leave blank between commas if no default for that column
vDefaultArray = Array(, 1, 0, , , , 0, 1)
With Target
If .Column = 1 Then _
If Application.WorksheetFunction.CountA(.EntireRow) = 1 Then _
.Offset(0, 1).Resize(1, UBound(vDefaultArray) + 1).Value = vDefaultArray
End With
End Sub