用于数据格式设置的Excel宏

我有以下格式的excel数据

1 2  
3 4  
5 6  
7 8  
8 9   

我希望输出为：1 2 3 4 5 6 7 8 9在一行中

    A  B
========
1)  1  2
2)  3  4

然后将数据放入C1：

Dim Data As Range, cell As Variant, buffer As String
Set Data = Range("A1:B1", Range("A1:B1").End(xlDown))

For Each cell In Data
    If (buffer = "") Then
        buffer = cell.Value
    Else
        buffer = buffer & " " & cell.Value
    End If
Next

Range("C1").Value = buffer