Sub TestU20()
'ab A2 erste 20 Zeilen
'in das Blatt Archiv kopiert werden
 
With Sheets("AV")
   With .Range(.[A2], .[A2].Offset(19)).EntireRow
   .Copy Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp)(2)
   End With
End With
 
End Sub

Sub TestL20()
'in A letzte 20 Zeilen - KANN knallen wenn zu wenig Zeilen
'in das Blatt Archiv kopiert werden
Dim c As Range

With Sheets("AV")
   Set c = .Cells(.Rows.Count, 1).End(xlUp)
   On Error Resume Next
   Set c = .Range(c.Offset(-19), c)
   If Err.Number <> 0 Then Set c = .Range(.Cells(2, 1), c)
   On Error GoTo 0
   With c.EntireRow
   .Copy Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp)(2)
   End With
End With
 
End Sub