VBA Delete row too slow

Question

    Sub removecolumn()
    Dim i As Long, lastrowBook As Long
    Dim wsBook As Worksheet
    Set wsBook = Worksheets("Book")
    lastrowBook = wsBook.Cells(Ro