Sending Data from Word Into Excel

[snb]

If Dir(ScrapReportFile)<>"" Then
   with getobject(ScrapReportFile)
      with .sheets(3).cells(rows.count,1).end(-4162).offset(1)
        .value= "SOP Title: " & SOPTitle
        .offset(,5)= "Date: " & Format(Date, "MM/dd/yyyy")
      end with
      .close -1
   end with
End if