how can copy the cell value to the respective cell?

Hi Guys,
Just wondering if someone could help me ...
i have the data which need some re arranging as u can see in attached sample wb
can some one help. its appreciated.
u can find the data in Sep-10 sheet and i need to arrange as in the after sheet.
and delete those empty row

This should work for you

Sub Button3_Click()

    Dim Rws As Long, Rng As Range, c As Range, D As Range, ClRw As Range

    Rws = Cells(Rows.Count, "A").End(xlUp).Row

    Set Rng = Range(Cells(3, 1), Cells(Rws, 1))

    For Each c In Rng.Cells

        If IsDate(c.Value) Then

            Set D = c.Offset(2, 7)

            Range(D, D.End(xlDown)) = c

        End If

    Next c

    Set ClRw = Range(Cells(3, 5), Cells(Rws, 5)).SpecialCells(xlCellTypeBlanks)

    ClRw.EntireRow.Delete

End Sub