I have date and seven random numbers on sheet2

Sat, March 25, 2006 10 21 24 26 30 42 35
etc. on down. . . .

On sheet1, I would like to copy in correct position to Column Headings
column headings run Date, 1... thru 39
So number 10 would be placed in Column K (col 11) Sheet1
Like so Number 21 on sheet2 be placed in the correct column in sheet1
Column U (col 22)
And so down the rows in sheet2

The date will always be in column A(col 1)

With Thanks

smandula:

With Sheet1.Range("A1")
For Each rCell in Sheet1.Range("A1:H1")
If IsDate(rCell.Value) Then
.Value = rCell.Value
Else
.Offset(0,rCell.Value).Value = rCell.Value
End If
Next rCell
End With


--
Dick Kusleika
MS MVP - Excel
www.dailydoseofexcel.com

smandula wrote:
I have date and seven random numbers on sheet2

Sat, March 25, 2006 10 21 24 26 30 42 35
etc. on down. . . .

On sheet1, I would like to copy in correct position to Column Headings
column headings run Date, 1... thru 39
So number 10 would be placed in Column K (col 11) Sheet1
Like so Number 21 on sheet2 be placed in the correct column in sheet1
Column U (col 22)
And so down the rows in sheet2

The date will always be in column A(col 1)

With Thanks