I have 2 sheets, database & main, transferring data from Main to the very last row of database, then clear the transferred data from sheet main, also tried to sort the database by date, but became even slower. Am I doing something wrong? Thank You

Sub over()

Sheets("Main").Unprotect
Sheets("Database").Unprotect
Application.ScreenUpdating = False

TEMPLATE_SHEET = "main"
DATABASE_SHEET = "Database"
COUNT_ROw = 1
Database_Records = Sheets("DATABASE").Range("A1:A1000")

'To identify the next blank row in the database sheet

For Each DBRECORD In Database_Records

If DBRECORD <> "" Then COUNT_ROw = COUNT_ROw + 1

Next DBRECORD
'To copy the data from the template to the database

Sheets("main").Select

Range("Date").Copy
Sheets(DATABASE_SHEET).Range("A" & COUNT_ROw).PasteSpecial xlPasteValues
Range("RegVol").Copy
Sheets(DATABASE_SHEET).Range("B" & COUNT_ROw).PasteSpecial xlPasteValues
Range("SpecVol").Copy
Sheets(DATABASE_SHEET).Range("C" & COUNT_ROw).PasteSpecial xlPasteValues
Range("SupVol").Copy
Sheets(DATABASE_SHEET).Range("D" & COUNT_ROw).PasteSpecial xlPasteValues
Range("DVol").Copy
Sheets(DATABASE_SHEET).Range("E" & COUNT_ROw).PasteSpecial xlPasteValues
Range("RegSales").Copy
Sheets(DATABASE_SHEET).Range("F" & COUNT_ROw).PasteSpecial xlPasteValues
Range("SpecSales").Copy
Sheets(DATABASE_SHEET).Range("G" & COUNT_ROw).PasteSpecial xlPasteValues
Range("SupSales").Copy
Sheets(DATABASE_SHEET).Range("H" & COUNT_ROw).PasteSpecial xlPasteValues
Range("DSales").Copy
Sheets(DATABASE_SHEET).Range("I" & COUNT_ROw).PasteSpecial xlPasteValues
Range("TotalFuel").Copy
Sheets(DATABASE_SHEET).Range("J" & COUNT_ROw).PasteSpecial xlPasteValues
Range("TotalVol").Copy
Sheets(DATABASE_SHEET).Range("K" & COUNT_ROw).PasteSpecial xlPasteValues
Range("TaxableSales").Copy
Sheets(DATABASE_SHEET).Range("L" & COUNT_ROw).PasteSpecial xlPasteValues
Range("Non_Taxable").Copy
Sheets(DATABASE_SHEET).Range("M" & COUNT_ROw).PasteSpecial xlPasteValues
Range("Propane").Copy
Sheets(DATABASE_SHEET).Range("N" & COUNT_ROw).PasteSpecial xlPasteValues
Range("Collections").Copy
Sheets(DATABASE_SHEET).Range("O" & COUNT_ROw).PasteSpecial xlPasteValues
Range("E_CigsSales").Copy
Sheets(DATABASE_SHEET).Range("P" & COUNT_ROw).PasteSpecial xlPasteValues
Range("AccountFor").Copy
Sheets(DATABASE_SHEET).Range("Q" & COUNT_ROw).PasteSpecial xlPasteValues
Range("CreditCards").Copy
Sheets(DATABASE_SHEET).Range("R" & COUNT_ROw).PasteSpecial xlPasteValues
Range("StorePO").Copy
Sheets(DATABASE_SHEET).Range("S" & COUNT_ROw).PasteSpecial xlPasteValues
Range("CashDrop").Copy
Sheets(DATABASE_SHEET).Range("T" & COUNT_ROw).PasteSpecial xlPasteValues
Range("AccountedFor").Copy
Sheets(DATABASE_SHEET).Range("U" & COUNT_ROw).PasteSpecial xlPasteValues

Worksheets("Database").Protect
Application.ScreenUpdating = True

Call clearall
' Call Sort

End Sub

-------------------------------------------------------------------------------------------------

Sub clearall()

Range("Posted").Select
Selection.ClearContents
Worksheets("Main").Protect

End Sub
-----------------------------------------------------------------------------------------------------
? Ran Very Slow with this Sub
' Sub Sort()
' With Sheets("DATABASE").Sort
' .SortFields.Add Key:=Range("A2"), Order:=xlAscending
' .SortFields.Add Key:=Range("B1"), Order:=xlAscending
' .SetRange Range("A1:u1010")
' .Header = xlYes
' .Apply
' End With

' End Sub