Met de nodige hulp van anderen is het gelukt. Voor de geinteresseerde:
Sub OpmerkingenKopieeren()
Sheets("tm").Select
Range("A2").Activate
'On Error GoTo FoutAfh
Do Until IsEmpty(ActiveCell)
zkwrd = ActiveCell
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 32)).Copy
Sheets("NSR").Select
Columns("A:A").Find(zkwrd, LookIn:=xlValues).Activate
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 32)).PasteSpecial xlPasteComments
Sheets("tm").Select
ActiveCell.Offset(1, 0).Activate
Loop
Application.CutCopyMode = False
Range("A2").Activate
Exit Sub
FoutAfh:
Sheets("tm").Select
Application.CutCopyMode = False
MsgBox "Op blad NSR ontbreekt de sleutel: " & zkwrd
End Sub