macro if data in column a = set word to insert that column into sheet 2 or 3 based on word

Can you redact any sensitive information from the spreadsheet and attach it as an example? Maybe with a before and after example?

This will give us a better picture of how it is laid out.

To attach an example workbook, click the 'Go Advanced' button below and use the paperclip in the toolbar to navigate to your file.

Try placing this in the sheet module for sheet CRH Projects

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Dim strWS As String

If Not Intersect(Target, Range("C:J")) Is Nothing Then
    With Sheets(Range("A" & Target.Row).Value)
        On Error Resume Next
        Set rng = .Range("B:B").Find(Range("B" & Target.Row).Value)
        On Error GoTo 0
        If Not rng Is Nothing Then
            .Range(Cells(rng.Row, 3), Cells(rng.Row, 10)).Value = Range(Cells(Target.Row, 3), Cells(Target.Row, 10)).Value
        End If
    End With
End If

End Sub

My mistake. Try this:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

If Selection.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("C:J")) Is Nothing Then
    With Sheets(Range("A" & Target.Row).Value)
        On Error Resume Next
        Set rng = .Range("B:B").Find(Range("B" & Target.Row).Value)
        On Error GoTo 0
        If Not rng Is Nothing Then
            .Range(Cells(rng.Row, 3), Cells(rng.Row, 10)).Value = Range(Cells(Target.Row, 3), Cells(Target.Row, 10)).Value
        End If
    End With
End If

End Sub

Okay, I think I misunderstood your request. Are the updates of the cells themselves going to happen through formulas?

Basically what you want, if you add a line (insert a line) to the summary sheet it will automatically add the line to the bottom of the individual team sheet?

Maybe this is what you're looking for

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lRow As Long
Dim rng As Range
Dim ws As Worksheet

If Selection.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A:A")) Is Nothing Then
    On Error Resume Next
    Set ws = Sheets(Range("A" & Target.Row).Value)
    On Error GoTo 0
    If ws Is Nothing Then
        MsgBox "That team does not have a tab created"
    Else
        With ws
            lRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Cells(lRow, 1).Value = Range("A" & Target.Row).Value
            For Each rng In .Range("B" & lRow & ":J" & lRow)
                rng.Formula = "='CRH Projects'!" & Left(rng.Address(False, False), 1) & Target.Row
            Next rng
        End With
    End If
End If

End Sub