This code goes in the Code page of the sheet with the data you need to copy.
The Daily Diary workbook must be open when you run the code.
Edit the code as indicated in its comments.
Option Explicit
Sub CopyData()
Dim DestBook As Workbook
Dim DestSht As Worksheet
Dim FinalDestination As Range
Set DestBook = Workbooks("daily diary.xls?") '<--Use Full Name with full Extension
Set DestSht = DestBook.Sheets("copy 2 Sheet11") '<-Use Full Name of sheet
Set FinalDestination = DestSht.Cells(Rows.Count, "B").End(xlUp).Offset(1)
Range("B4").CurrentRegion.Offset(1).Copy FinalDestination
End Sub