Copy Paste funktioniert nicht. Warum?

Sub zum kopieren eines zellebereiches in ein anderes Tabellenblatt. Das Problem ist aber dass die paste-mathode fehlerhaft sein soll.
Weiß jemand rat?

Sub uebernehmen()
Dim i, j, h As Integer
Dim rng1 As Range
Sheets("neue").Select
Application.Run "schutz_aus" 'Tabellenblatt "neue"
i = Sheets("neue").Cells(Rows.Count, 3).End(xlUp).Row
j = Sheets("Status").Cells(Rows.Count, 1).End(xlUp).Row + 1
h = i - 15  'Anzahl der neuen einträge wird berechnet
ActiveSheet.Range(Cells(15, 1), Cells(i, 5)).Select
Selection.Copy
Application.Run "schutz_ein" 'Tabellenblatt "neue"
Sheets("Status").Select
Application.Run "schutz_aus" 'Tabellenblatt "Status"
Range(Cells(j, 1), Cells(j, 5)).Select
ActiveSheets.Paste
Application.Run "schutz_ein" 'Tabellenblatt "Status"
End Sub


Danke Andy