hi
i have this code that copys and past stuff from another workbook and paste what i want from that work book to another work book in row d and e

what i need is to add the same words to rows a b and c while its copying over my info from other sheet
here is the code where it copies and paste the info over 
Sub Gross_NAV()
Dim i As Long, LR As Long

    Dim AR As Long
    Dim dAveragePrep As Double
    Dim rng As Range
    Dim ang As Long
    Application.ScreenUpdating = False
On Error Resume Next
     Set ms = Workbooks("Book4.xlsx").Sheets("NOK IA1")
    With Worksheets("Allocation")

        LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
          For i = 1 To LR
             If IsDate(.Cells(i, 1)) Then
                 .Cells(i, 1).Copy
                MyDate = ms.Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial(xlPasteValues)
                MyDate.NumberFormat = "dd/mm/yyyy"
            End If
                If UCase$(.Cells(i, AG).Value) = "Gross NAV" And UCase$(.Cells(i, C).Value) = "NOK/IA1" Then
                                              
                .Cells(i, "AG").Offset(1).Resize(1).Copy
                
                MyData = Format(ms.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial(Transpose:=True), Percent)
                    
     

               
              End If
          Next i
          End With
          

Application.CutCopyMode = 0

Application.ScreenUpdating = True

End Sub
is it possible to add text to the other rows while this is looping through and adding to sheet

if so can anyone help