Dividing Data Compiled On One Worksheet To Others

In trying to solve my dilema I searched some older threads and found some code written by Peter SSs. I altered it to fit my situation ( or so I thought) because all I get is a compile error. I am not sure why. The data is lengnty but the sorting item is the provider name. The information for each provider should then post to the sheet with his name.

Here is the

Sub test()
Dim lr As Long
Dim ws As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
lr = Sheets("Audit Results").Range("F" & Rows.Count).End(xlUp).Row
For Each ws In ThisWorkbook.Worksheets