Copy data across multiple worksheets (based on three criteria)

I have data on a worksheet (“Interface”) that I need to copy over 7 other tabs for analysis ("Module_1", "Module_2", "Module_3", "Module_4", "Module_5", "Module_6", "Module_7").

The linking Field on the Interface tab defines what row I need to paste the data to on Module 1-7.

The column headers are the same on both the interface and other tabs (“YES, NO, N/A, BLANKS, STANDARDS MET, STANDARDS NOT MET, NOT APPLICABLE”)

The tab is selected based on the row
Module 1 Medication Management
Module 2 Privacy
Module 3 Process
Module 4 Patient Safety
Module 5 Medical Records
Module 6 Infection Control
Module 7 Environment of Care

I’m trying to modify code written for a similar purpose with no luck. This is the code I'm trying to modify. I know I'm not on the right track yet. But this was the general idea I was going for...

Sub Log_Data()
  Dim DateRng As Range
  Dim DstWks As Worksheet
  Dim Facility As String
  Dim I As Integer
  Dim LastEntry As Range
  Dim RawRng As Range
  Dim shtArray As Variant
  Dim SrcWks As Worksheet
  
    shtArray = Array("Module_1", "Module_2", "Module_3", "Module_4", _
                     "Module_5", "Module_6", "Module_7")
                     
    Set SrcWks = Worksheets("INTERFACE")
    Facility = SrcWks.Range("C1")
    
    Set LastEntry = SrcWks.Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False)
      If Not LastEntry Is Nothing Then
         If LastEntry.Address = "$A$12" Then Exit Sub
         Set RawRng = LastEntry.Offset(-6, 0).Resize(7, 1)
         EntryDate = LastEntry.Offset(-7, 0).Text
      End If
      
      For I = 0 To UBound(shtArray)
        Set DstWks = ThisWorkbook.Worksheets(shtArray(I))
           Set DateRng = DstWks.Rows(1).Find(EntryDate, , xlValues, xlWhole, xlByColumns, xlPrevious, False)
           Set FacRng = DstWks.Columns(1).Find(Facility, , xlValues, xlWhole, xlByRows, False)
           If Not DateRng Is Nothing And Not FacRng Is Nothing Then
              DstWks.Cells(FacRng.Row, DateRng.Column) = RawRng.Cells(I + 1, 1)
           End If
      Next I

End Sub

Any help would be much appreciated.
Thanks!
Mike

Try this instead:

Option Explicit

Sub ParseData()
'JBeaucaire  2/16/2010
Dim LR As Long, i As Long, r As Long
Dim LField As String, ws As String

With Sheets("INTERFACE")
    LField = .[C1].Text
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 5 To LR
        .[D1].FormulaR1C1 = "=MATCH(RC3,'" & Cells(i, "A") & "'!C1,0)"
        r = .[D1].Value
        ws = Cells(i, "A").Text
        .Range(Cells(i, "C"), Cells(i, "I")).Copy
        Sheets(ws).Range("B" & r).PasteSpecial xlPasteValuesAndNumberFormats
    Next i
    
    .[D1] = ""
End With
        
End Sub

Welcome to the Forum tbrice,, unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.