move rows in excel daily

jewels 

If you open the workbook once a day, you could use code in the Workbook_Open event procedure in the ThisWorkbook module:

Private Sub Workbook_Open()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim r As Long
    Set w1 = Worksheets("Source")
    Set w2 = Worksheets("Target")
    r = w2.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    w1.Range("A2:A101").EntireRow.Copy Destination:=w2.Range("A" & r)
    w1.Range("A2:A101").EntireRow.Delete
End Sub