Exportar 3 Columnas de Acces a Excel

[odsa]

Hola familia,
Necesito importar desde una tabla en Acces 3 de sus columnas para una sola columna en Excel, esoy tratando de tirar ese código en una Macro en Excel; me importa bien; pero utiliza la misma cantidad de columnas acá en Excel, como hago para que lo importa a una sola columna??
Esto es lo que he hecho hasta ahora.

[QUOTE]
Sub NombresNomina()

Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strDB, strSQL As String
Dim strTabla As String
Dim lngTablas As Long
Dim i As Long

strDB = "C:\NominaUtilidades\Nominas.mdb"
strTabla = "DatosPersonales"

Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & strDB & ";"

strSQL = "SELECT nombres,apellido1,apellido2 FROM DatosPersonales ORDER BY nombres"
recSet.Open strSQL, datConnection

ActiveSheet.Cells(1, 1).CopyFromRecordset recSet

recSet.Close: Set recSet = Nothing
datConnection.Close: Set datConnection = Nothing

End Sub
[QUOTE]