Supress an error / prevent them while editing tables - vba

Question

Thank you for your help with my other questions, and the wonderful information on this site.
I am a doctor. I am trying to be more efficient with my clinic notes.
While writing a patient note, I first write the current medications in a table.
CURRENT MEDICATIONS
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
o
While working on the patient, I put a short letter in the 3rd column. (c for continue, s for stop, o for ask your other doctor about it)
I then a short piece of code (working flawlessly) to copy this table and paste 3 identical tables at the very end of the document.
MEDICATION CHANGES:
1. Stop these medications
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
o
2. Take these medications per my instructions
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
o
3. Take other doctor's medications per his/her instructions
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
o
I then run this code:
Dim TargetText2 As String
Dim oRow2 As Row
TargetText2 = "s"
For Each oRow2 In Doc.Tables(ActiveDocument.Tables.Count - 2).Rows
If oRow2.Cells(3).Range.Text <> TargetText2 & vbCr & Chr(7) Then oRow2.Delete
Next oRow2
Dim TargetText3 As String
Dim oRow3 As Row
TargetText3 = "c"
For Each oRow3 In Doc.Tables(ActiveDocument.Tables.Count - 1).Rows
If oRow3.Cells(3).Range.Text <> TargetText3 & vbCr & Chr(7) Then oRow3.Delete
Next oRow3
Dim TargetText4 As String
Dim oRow4 As Row
TargetText4 = ""
For Each oRow4 In Doc.Tables(ActiveDocument.Tables.Count).Rows
If oRow4.Cells(3).Range.Text <> TargetText4 & vbCr & Chr(7) Then oRow4.Delete
Next oRow4
Which gives me this output:
1. Stop these medications
Medication
Dose
Instruction
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
2. Take these medications per my instructions
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
3. Take other doctor's medications per his/her instructions
Medication
Dose
Instruction
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
o
I then have other code that deletes the 3rd column of all tables for a clean look.
'Deleting the now-unecessary 3rd column in all 4 tables (and 2nd column in stop medications table)
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.Columns(3).Delete
oTable.PreferredWidthType = wdPreferredWidthPercent
oTable.PreferredWidth = 97
Next oTable
Now, when there is at least one medication in each category, things work flawlessly.
But when there is no medication in any one category, for example:
Medication
Dose
Instruction
Levecros 500 mg (Levetiracetam 500 mg)
1 – 0 – 1
c
Lacosam 100 mg (Lacosamide 100 mg)
1 – 0 – 1
s
Amlodac 10 mg (Amlodipine 10 mg)
1 – 0 – 1
s
I get a huge error message. "Error 5941 – The requested member does not exist"
I tried adding:
Application.DisplayAlerts = False
On Error Resume Next
But it doesn't work. I still get the error message!
Any suggestions?
Warm regards,
Dr. Siddharth Kharkar