Hello again Haharrison,
In the meantime, I thought that perhaps you may be interested in another method. Following is another code that does the same thing but uses auto filter instead. If your data set is to become larger, this method may be quicker for you.
Dim ar As Variant
Dim i As Integer
Dim lr As Long
t = Timer
Application.ScreenUpdating = False
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Sheet1.Range("G2:G" & lr).Formula = "=IF(AND(D2<>"""",E2="""",F2=""""),D2)"
ar = Array("A", "B", "C", "D")
For i = 0 To UBound(ar)
Sheet1.Range("G1", Sheet1.Range("G" & Sheet1.Rows.Count).End(xlUp)).AutoFilter 1, ar(i)
Sheet1.Range("A1", Sheet1.Range("F" & Sheet1.Rows.Count)).Copy Sheets(ar(i)).Range("A" & Rows.Count).End(3)
Sheet1.Range("G2:G" & lr).ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Data transfer completed!", vbExclamation, "Status"
MsgBox (Timer - t)
The code actually uses an IF/AND formula to drag the Attorneys' initials over to Column G and then filters on Column G.
Following is the link to my mock-up of your work book. Click on the "RUN" button to see it work.
I have placed some 10,500 rows in the sample and I've added a timer to the code which will tell you how long the code takes to execute (in your actual work book, I would say that it would take longer to execute due to the amount of text that you have in the work book).
To test that new data is appended to each individual sheet, just delete the data in sheet1 and simply add new data with different lettering (except for Column D as these letters represent your Attorneys and need to remain as is. The sheets are named "A", "B", "C", and "D", representing fictitious Attorneys) then click on "RUN" again.
Please note that, in my sample file, the headings are in row 1 and data starts in row 2, just in case you wish to try this code in your actual work book (remember
to test it in a copy
of your work book first).
Something else to bear in mind. As you are not clearing data from the Master sheet after it is transferred to each individual sheet, you may well end up with duplicates in the individual sheets. Let us know your thoughts on this.
I hope that I haven't confused you too much!