Paste previously copied values as 123 except last one and...

Hi guys,
I would like to ask some help, basically what i need is:

when data is entered and button pressed copy formula down till the last record
then select the formulas which were dragged down (EXCEPT LAST ONE) and paste as values.
if i will press button again it will start dragging formulas down from the last formula which was left.
For example if before formula was dragged down from U2 till U10000 cell it will copy and paste as values from U2 till U9999 and next time it will start dragging formula from U10000 and so on.

Basically i need that because when it exceeds more than 5000 records it takes more than 10 minutes to drag formula down.

I appreciate your help guys.
Thanks in advance

Private Sub CommandButton2_Click()
 Dim LastRow As Long
    With Worksheets("DataBase")
        LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
    With Worksheets("DataBase")
        .Range("U2").AutoFill Destination:=.Range("U2:U" & LastRow)
    End With
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
End Sub