How to Copy and paste data by click Update Button

Like this?

Sub CopyTo()

For i = 3 To Sheets("Processing Sheet2").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Processing Sheet2").Range("A" & i).EntireRow.Copy Sheets("Ordered Losses").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next

Sheets("Ordered Losses").Sort.SortFields.Add Key:=Range("F4", "F" & Rows.Count).End(xlUp) _
    , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With Sheets("Ordered Losses").Sort
    .SetRange Range("A4").CurrentRegion
    .Header = xlYes
    .Apply
End With

End Sub