Copying rows in range based on criteria

I have the following code written but it is not copying the correct cells. I would like to only copy rows in the row range 25:66 with "Buy" in column D and "Initiating" in column E. Can anyone help me modify this code? Thanks in advance.

Private Sub getreport(Code As Integer)

    

    Range("A25").Select
    celltocopy = ("A25:IU25") & ActiveCell.Row
    Range(celltocopy).Select
    Selection.Copy
     If (ActiveCell.Offset(0, 3).Value = "Buy") And (ActiveCell.Offset(0, 4).Value = "Initiating") Then
        Range("A87").Select
        Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


   End If
   
    Do Until ActiveCell.Value = "Stop"
    OffsetRow = 0
    OffsetRow = OffsetRow + 1
        
    Loop