Autofill in Table

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oTbl As Table
Dim oRow As Row
Dim oRng As Range
  Set oTbl = Selection.Tables(1)
  For lngIndex = 2 To oTbl.Rows.Count
    Set oRow = oTbl.Rows(lngIndex)
    If Not Len(oRow.Range.Text) = 10 Then
      If Len(oRow.Cells(4).Range.Text) = 2 Then
        Set oRng = oRow.Previous.Cells(4).Range
        oRng.End = oRng.End - 1
        oRow.Cells(4).Range.Text = oRng.Text
      End If
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub