Как переносить значение одного столбца в другой, ситуация следующая:

Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = str_p
cn.Open
Dim rs As New ADODB.Recordset

rs.Open "SELECT SUM(S1), SUM(S2) FROM " + _
"(select sum(dp.akt_rasx) As S1 ,sum(dp.summa) As S2 " + _
"from d_point dp " + _
"where dp.k_Month = 7 And dp.Year = 2007 And (dp.k_f46 = 1 Or dp.k_f46 = 27) " + _
"Union ALL " + _
"select sum(dps.rasx_a) As S1,sum(dps.summa) As S2 " + _
"from d_dopsum dps " + _
"where dps.k_Month = 7 And dps.Year = 2007 And (dps.k_f46 = 1 Or dps.k_f46 = 27)) T1", cn, adOpenStatic, adLockReadOnly

Лист1.Cells(8, 3) = rs.Fields(0).Value

и т.д я заполню 3-столбец.
после чего мне надо чтобы в 1 столбец скопировалось все с 3
как это написать программно в VBA?
кто знает подскажите...

уже написала.