Write a more efficient code

Well, so far, just the block deletions for these two deletion routines:

'Call XDeleteData1Rows(Range1End)
    Worksheets("Data input").Rows("1:" & Range1End).EntireRow.Delete

AND

'Call XDeleteData2Rows(LR)
    Worksheets("Data input").Rows("1:" & LR).EntireRow.Delete