Excel 2007 : Distinguish between Text and Numbers then Move

[dennymigl]

Help !!

I recently scanned and converted a pdf file into an Excel 2007 file.
A portion of that file is attached.

Column A shows a list of property names (text format) on one row with its respective value (number format) shown in the row immediately below it. There are 3 blank rows immediately following the value (number format) that separate each property/value combination (see attachment).

I would like to move the value (number format) for each property name (text format) from the cell immediately below the property name to the cell immediately to the right of the property name. I still need to maintain the 4 row separation between property names.

There are two worksheets in the attachment:
Existing Format
Desired Format

I can cut and paste for a few properties, but not when there are several thousand.
There's got to be a better way!

Help !!

Thanks !!

[gjlindn]

If you're familiar with VBA you could use this.

Sub MoveNumbers()
    Dim rAffected   As Range
    Dim rCell       As Range
    Dim bScrUpd     As Boolean
    
    With Application
        bScrUpd = .ScreenUpdating
        .ScreenUpdating = False
    End With
    
    Set rAffected = Range("A6:A322")
    
    For Each rCell In rAffected
        If IsNumeric(rCell) Then
            rCell.Offset(-1, 1).Value = rCell.Value
            rCell.Value = vbNullString
        End If
    Next
    
    Set rAffected = Nothing
    Application.ScreenUpdating = bScrUpd
End Sub

[gjlindn]

Here is an example where you could use formulas. Columns B & C contain formulas (the same formula in each column copied down to the last row of data). Copy/Paste Special Values to the two formula columns then delete Column A would also get you what you need. Colum B Formula is (starting in cell B6)

=IF(ISTEXT(A6),A6,"")

Column C Formula is (starting in cell C6)

=IF(ISNUMBER(A7),A7,"")

[dennymigl]

Dear gjlindn,

This just made my day !!
Thanks a bunch!!
I am not into VBA programming but the IF statement solution works just fine.
Thanks again !!

[gjlindn]

Glad I could help Have a great day!