Apart from the cludgy way of getting a reference to the Word document, the
big problem is that while you copy the excel stuff, you don't do anything
with it. You need to paste it into your document.

Dim objWord as object
Dim pDoc as object
Dim pDoc2 as object
Dim pOpenedHere as boolean
Const pFileName as string = "F:\LSD_050206\calcsht.doc"

'Get existing instance of Word if any; create new instance if necessary
on error resume next
set objWord = GetObject("Word.Application")
on error goto 0
if objWord is nothing then
   set objWord = CreateObject("Word.Application")
   pOpenedHere = true
end if

'Check if document is open already
for each pDoc in objWord.Documents
   if pDoc.FullName = pFileName then
       set pDoc2 = pDoc
       exit for
   end if
Next

'Open it if not
if pDoc2 is nothing then
   set pDoc2 = objWord.Documents.Open(pFileName)
end if

'Copy the range
Worksheets("Beam.").Range("A1: T55").Copy

'Paste it (modify this to select the spot where you want to paste)
pDoc2.Range(pDoc2.End - 1, pDoc2.End).Paste

'Clean up
pDoc2.Save
pDoc2.Close
Set pDoc2 = Nothing

if pOpenedHere then
   objWord.Quit
end if
set objWord = nothing