Sub test()
ActiveSheet.Unprotect
Range("A1:AD30").Copy
Range("A" & Range("AD" & Rows.Count).End(xlUp).Row + 10).Select
ActiveSheet.Paste
Range("D1:D3").ClearContents
Range("A5:N30").ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub