Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
If derlig > 8 Then
Cells(derlig - 1, 2).EntireRow.Delete
End If
End Sub
Sub Bouton2_QuandClic()
Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
Range(derlig & ":" & derlig).Insert xlShiftDown