Try this
Option Explicit
Sub drv()
Call ChangeColor(1, 3)
End Sub
Sub ChangeColor(sStart As Integer, sEnd As Integer)
Dim sColor As Long
Dim oSld As Slide
Dim oShp As Shape
Dim oRow As Row
Dim oCell As Cell
Dim x As Long, i As Long
Dim oColor As Long
With ActivePresentation
For i = sStart To sEnd ' why the +1 ?
Set oSld = ActivePresentation.Slides(i)
For Each oShp In oSld.Shapes
If oShp.HasTable Then
For Each oRow In oShp.Table.Rows
For Each oCell In oRow.Cells
If oCell.Shape.TextFrame.HasText Then
oCell.Shape.TextFrame.TextRange.Font.Color.RGB = oRow.Cells(1).Shape.TextFrame.TextRange.Font.Color.RGB
End If 'has text
Next oCell
Next oRow
End If
Next oShp
Next i
End With
End Sub