Sub copiercoller()
Dim DEST As Range
Set DEST = IIf(Range("AM3").Value = "", Range("AM3"), Cells(Application.Rows.Count, "AM").End(xlUp).Offset(1, 0))
Range("N9:O10").Copy
DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
DEST.Offset(0, 2).value = Date
End Sub