Sub AddQuotes()
For Each field In ActiveCell.CurrentRegion.Cells
If field.Value <> "" Then
field.Value = Chr(34) & field.Value & Chr(34)
End If
Next
End Sub
Sub Combine()
Dim J As Integer
If Selection.Cells.Count > 1 Then
For J = 2 To Selection.Cells.Count
Selection.Cells(1).Value = _
Selection.Cells(1).Value & " " & _
Selection.Cells(J).Value
Selection.Cells(J).Clear
Next J
End If
End Sub