copy characters in cell to other cell less first 3 characters.

[maacmaac]

I am trying to copy data from one cell to another less the first 3 characters of the source cell.

For example:
in cell G2 is value "XXXJoe Smith". In cell M2 I want copy as "Joe Smith".
in cell G3 is value "ABCPat Smith". In cell M3 I want copy as "Pat Smith".
in cell G4 is value "YRTSue Smith". In cell M4 I want copy as "Sue Smith".

Is there a way to incorporate this into the code?

    With ActiveSheet
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
            For i = 2 To LastRow
                .Range("M2:M" & LastRow).Value = .Range("G2:G" & LastRow).Value
            Next i
        End If
    End With

[jindon]

try

Sub test()
    With Range("g2", Range("g" & Rows.Count).End(xlUp))
        .Offset(, 6).Value = _
        Evaluate("if(row(" & .Address & "),mid(" & _
        .Address & ",4,len(" & .Address & ")))")
    End With
End Sub