Dividing Cells in a Range

NB/ Question submitted by agreement with and allocated to Stephen

How do I divide by 100 the Cells in a Range that I have moved across? Here is my code for this particular section:

Sub CopyData()

Dim intRowCount As Integer
Dim intColumnCount As Integer
Dim intTargetRowCount As Integer

Dim strSourceRangeStart As String
Dim strSourceRangeFinish As String

Dim strTargetRangeStart As String
Dim strTargetRangeFinish As String

Dim strSourceRange As String
Dim strTargetRange As String

intTargetRowCount = 2

For intRowCount = 1 To 64
If Sheets("RfC").Range("A5").Cells(intRowCount - 3, 1).Value = "" _
And Not Sheets("RfC").Range("A5").Cells(intRowCount, 2).Value = "" Then
strSourceRangeStart = Sheets("RfC").Range("A5").Cells(intRowCount, 1).Address
strSourceRangeFinish = Sheets("RfC").Range("A5").Cells(intRowCount, 25).Address

strTargetRangeStart = Sheets("Table").Cells(intTargetRowCount, 2).Address
strTargetRangeFinish = Sheets("Table").Cells(intTargetRowCount, 26).Address

strSourceRange = strSourceRangeStart & ":" & strSourceRangeFinish
strTargetRange = strTargetRangeStart & ":" & strTargetRangeFinish

Sheets("Table").Range(strTargetRange).Value = _
Sheets("RfC").Range(strSourceRange).Value

Sheets("Table").Range(strTargetRange).Value = (Sheets("Table").Range(strTargetRange).Value) / 100

intTargetRowCount = intTargetRowCount + 1
End If
Next intRowCount

End Sub