Makro kopiere fra et ark til et andet

Jeg har lavet en makro som kopiere nogle celler fra Ark1 til Ark2.
Men nu kommer den med en Advarsel hvor i der står:

Data i Udklipsholder har ikke samme størrelse og form som det markerede område. Vil du indsætte alligevel?

Vælger man OK så virker det, men vil gerne have denne advarsel væk så den ikke kommer hver gang...

Min makro ser således ud:

Sub flytdata()

Dim targetRow As Long


' finder første tomme række i Resultater
targetRow = Worksheets("Resultater").Range("A65536").End(xlUp).Row + 1

' kopierer aktiv række
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy

' vælger kopiarket og den første ledige række og indsætter

Worksheets("Resultater").Select
Rows(targetRow & ":" & targetRow).Select
ActiveSheet.Unprotect
ActiveSheet.Paste

Range("A3:Q300").Locked = True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

' tilbage til originalarket
Worksheets("Indberetning").Select

'sletter
Range("A3").Select
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("E3").Select
    Selection.ClearContents

End Sub