How to delete blank rows in cell lock sheet

Try:

Sub DeleteRows()
   Sub DeleteRows()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Dim LastRow As Long, LastCell As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    LastCell = Range("A1").SpecialCells(xlLastCell).Row
    Rows(LastRow & ":" & LastCell).Delete
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub

Dear mumps,

this working now, but i want delete only Columns a to q only active and delete. after s columns its some collusion is going so please fine the attachement and i will create a new sheets in Daily sheet name (on the date)

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Columns(1).SpecialCells(xlCellTypeBlanks).Resize(, 17).Delete
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub

You haven't explained the criteria for the creation of a new sheet. What would trigger the creation of the sheet, what is the name of the newly created sheet, what data would that sheet contain? Please clarify in detail and attach a file which contains a manually-created new sheet with the expected results.

I'm sorry but I don't understand. Do you want to make a copy of Sheet1 and name it according to the current day's date? If so, do you want a new and separate macro to do this?