.Subject = Title
.to = Range("B2").Value  ' <-- Put email of the recipient here"
.CC = "" ' <-- Put email of 'copy to' recipient here
.Body = "Hi," & vbLf & vbLf _
      & "Yr 7 701 EOT test attached in PDF format." & vbLf & vbLf _
      & "Regards," & vbLf _
      & "KDS ICT Dept" & vbLf & vbLf
.Attachments.Add PdfFile

Application.Visible = True
.Display

For Each cell In Range("A2:A250")
If cell = Range("Results!B2").Value Then
cell.Offset(0, 4).Activate
ActiveCell.Value = Range("Results!B27").Value
End If
Next