So you have two workbooks and each of those workbooks has two worksheets.

The date of the transfer is only given once (today's movement C1).

This seemed to work ok for me:

Option Explicit
Sub testme01()

   Dim SummSent As Worksheet
   Dim SummRecd As Worksheet
   
   Dim TodaySent As Worksheet
   Dim TodayRecd As Worksheet
   
   Dim RngToCopy As Range
   Dim DestCell As Range
   
   Dim XferDateCell As Range
   
   Set SummSent = Workbooks("book1.xls").Worksheets("sent")
   Set SummRecd = Workbooks("book1.xls").Worksheets("Received")
   
   Set TodaySent = Workbooks("book2.xls").Worksheets("Today's movements")
   Set TodayRecd = Workbooks("book2.xls").Worksheets("Received Tapes")
   
   With TodaySent
       Set XferDateCell = .Range("c1")
       Set RngToCopy = .Range("b7:C" & .Cells(.Rows.Count, "b").End(xlUp).Row)
   End With
   
   With SummSent
       Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
       With DestCell.Resize(RngToCopy.Rows.Count, 1)
           .Value = XferDateCell.Value
           .NumberFormat = XferDateCell.NumberFormat
       End With
       RngToCopy.Copy _
           Destination:=DestCell.Offset(0, 1)
   End With
   
   With TodayRecd
       Set RngToCopy = .Range("b2:C" & .Cells(.Rows.Count, "b").End(xlUp).Row)
   End With
   
   With SummRecd
       Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
       With DestCell.Resize(RngToCopy.Rows.Count, 1)
           .Value = XferDateCell.Value
           .NumberFormat = XferDateCell.NumberFormat
       End With
       RngToCopy.Copy _
           Destination:=DestCell.Offset(0, 1)
   End With
   
End Sub

You'll have to change the workbook names here:

   Set SummSent = Workbooks("book1.xls").Worksheets("sent")
   Set SummRecd = Workbooks("book1.xls").Worksheets("Received")
   
   Set TodaySent = Workbooks("book2.xls").Worksheets("Today's movements")
   Set TodayRecd = Workbooks("book2.xls").Worksheets("Received Tapes")