urgent help need copying data

hi
i have 2 file please fine attached
i want to get the info from file 1 and transfer it to file 2 and make it looks like it is in file 2 can some one please help

here is file 1
Attachment 94977

what i want is to get the info from the column fund ownership column
and put it into book 2 and make it look like this
Attachment 94979

here is the code i have done for far but it wont work right

Code:

---

Sub FUND_OWNERSHIP()
Dim i As Long, LR As Long
Application.ScreenUpdating = False
On Error Resume Next
Set ms = Workbooks("UBS_FND_OngoingCharge_Calc.xlsx").Sheets("Allocation")
    With Worksheets("Allocation")
        LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
          For i = 1 To LR
            If IsDate(.Cells(i, 1)) Then
                .Cells(i, 1).Copy
                ms.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
                If Len(.Cells(i, "AD")) And .Cells(i, "AD") = "FUND OWNERSHIP %" Then
                .Cells(i, "AD").Offset(1).Resize(4).Copy
                ms.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
              End If
          Next i
    End With



               
Application.CutCopyMode = 0
Columns(1).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = True

End Sub

---

can any help very stuck and need this done