Excel 2007 : custom IF statement

the following macro should do what you are looking for it is assuming that there is data in column A to determin max rows.

Sub SSNChange()
Dim maxrow As Integer

maxrow = Range("A1048576").End(xlUp).Row

For x = 1 To maxrow
    If IsNumeric(Range(Cells(x, 6).Address).Value) = False Then
        Range(Cells(x, 77).Address).Value = Range(Cells(x, 6).Address).Value
        Range(Cells(x, 108).Address).Value = "P"
        Range(Cells(x, 6).Address).Value = ""
    End If

Next


End Sub