Private Sub CommandButton1_Click()
Dim L As Long
L = Range('A65536').End(xlUp).Row
Rows(L - 4 & ':' & L).Select
Selection.Copy
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Sheets('WFF_Total').Select
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub