Buscar valores que comienzan por la letra y adicionar fila y mover celdas

@josaul75, gracias por el código

   Sub Colores()
On Error GoTo Err_Colores
    Dim nCel As Double
    Dim sDato As String
    nCel = 2
    While Not Trim(Range("J" & nCel).Value) = ""
        sDato = Range("J" & nCel).Value
        If UCase(Left(sDato, 1)) = "J" And IsNumeric(Right(sDato, Len(sDato) - 1)) Then Range("A" & nCel & ":P" & nCel).Interior.Color = vbYellow
        nCel = nCel + 1
    Wend
Exit_Colores:
    Exit Sub
Err_Colores:
    MsgBox "Se generó una excepción " & Err.Number & " - " & Err.Description
    Resume Exit_Colores
End Sub

Necesito adicionarle a este código que cuando encuentre J en la columna J, me corte las celdas O y P y las pegue en Q y R (respectivamente)

Y que me inserte una fila superior de donde esta la J en la celda