Sub testit()
Dim i As Long, lngRows As Long, rngCell As Range

With Worksheets(1)
lngRows = .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(1, 1) = "" Then i = .Cells(1, 1).End(xlDown).Row Else i =
1
Do Until i lngRows
If .Cells(i, 3) = "" Then
Set rngCell = .Cells(i, 3).End(xlDown)
.Cells(i, 3).Value = rngCell.Value
rngCell.Value = ""
End If
i = .Cells(i, 1).End(xlDown).Row
Loop
End With
End Sub

"MASON" wrote in message
om...
Hello

I hope someone can help with what I think is a basic excel
question .
The excel version I am working with is 8.0 . I need to match two
columns .

COLUMN A COLUMN C
ROW 1 MR-1001
ROW 2 500.00
ROW 3 MS-1002
ROW 4
ROW 5 725.25
ROW 6 MT-2004
ROW 7
ROW 8
ROW 9
ROW 10 925.00


What I need is the 500.00 in column c to be on the same row as
mr-1001 which is row 1 . 725.25 needs to be in row 3 to match up with
ms-1002 an finally
925.00 needs to be on row 6 to match up with mt-2004 . Nothing needs
moved out of the columns they are originally in . This report was
exported into excel from an accounting software program and the report
is approx. 600 pages long .

So hopefully someone can help me with this problem .

Sincerely Mason