You are welcome.
I might tweak the 2nd procedure to look like:
<font face=Courier New><SPAN style="color:darkblue">Sub</SPAN> BlahBlahBlah()
<SPAN style="color:darkblue">Dim</SPAN> y <SPAN style="color:darkblue">As</SPAN> Worksheet
<SPAN style="color:darkblue">With</SPAN> Application
.ScreenUpdating = <SPAN style="color:darkblue">False</SPAN>
.DisplayAlerts = <SPAN style="color:darkblue">False</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">With</SPAN>
<SPAN style="color:darkblue">On</SPAN> <SPAN style="color:darkblue">Error</SPAN> <SPAN style="color:darkblue">Resume</SPAN> <SPAN style="color:darkblue">Next</SPAN>
Sheets("SV_Download").Delete
<SPAN style="color:darkblue">On</SPAN> <SPAN style="color:darkblue">Error</SPAN> <SPAN style="color:darkblue">GoTo</SPAN> 0
<SPAN style="color:darkblue">Set</SPAN> y = Sheets.Add(Sheets(1))
<SPAN style="color:darkblue">With</SPAN> y
.Name = "SV_Download"
.Tab.ColorIndex = 41
.[a1:h1] = Array("PATIENT_NUM", "CLASSN", "ADMIT_DATE", "DISCH_DATE", _
"LAST_NAME", "FIRST_NAME", "CMG", "PAYTs")
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">With</SPAN>
<SPAN style="color:darkblue">Set</SPAN> y = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">With</SPAN> Application
.ScreenUpdating = <SPAN style="color:darkblue">True</SPAN>
.DisplayAlerts = <SPAN style="color:darkblue">True</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">With</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>