Ciao. Ti ho scritto il codice solo per la colonna J ma per quella K è lo stesso, devi solo cambiare i range.

codice:
Sub copiaIncolla()
Dim i As Long
Dim cella As Range

ActiveSheet.Range("j2:j1000").Clear
i = 2 'setto a 2 la variabile per incollare a partire dalla seconda riga
For Each cella In Range("c2:c231")
    If cella.Text = "#N/D" Then
        Range("a" & cella.Row).Select
        Selection.Copy
        Range("j" & i).Select
        ActiveSheet.Paste
    i = i + 1
    End If
Next cella
End Sub