I have borrowed this code from a Microsoft CD and I am trying to alter
it so that it will select a range from my Excel workbook, say A1 to
F16, and show it as a table in Word.

At the minute, it only take the first cell and puts it in word.

Sub ExportFiguresToReport()
Dim oDocument As Word.Document
Dim sTitle As String, sResult As String

' IS IT THESE TWO LINES WHICH I NEED TO CHANGE?

sTitle = ActiveSheet.Cells(1, 1).Text
sResult = ActiveSheet.Cells(6, 2).Text
Set oDocument = CreateObject("Word.Document")
With oDocument
With .Application
If .Visible = False Then .Visible = True
.WindowState = wdWindowStateMaximize
.Activate
End With
With .Paragraphs(1).Range
.Text = sTitle & Chr(13)
.Style = "Heading 1"
.Font.Underline = wdUnderlineSingle
End With
With .Paragraphs.Add.Range
.Text = "Total: " & sResult & Chr(13)
.Style = "Heading 2"
End With
End With
End Sub