When I click on a sheet in excel 2007, I want to run a macro that copies certain data from another sheet into the current one

Sub movecategory()
    Dim rng As Range, cell As Range, ws As Worksheet
    Set rng = Range("C2:C" & Cells(Cells.Rows.Count, "C").End(xlUp).Row)
 
    For Each cell In rng
        On Error Resume Next
        Set ws = cell.Value
 
        If Not ws Is Nothing Then
            cell.EntireRow.Copy ws.Range("C" & ws.Cells(Cells.Rows.Count, "c").End(xlUp).Row + 1)
            Else
            MsgBox " Sheet not present for category --> " & cell.Value & " mentioned in row number --> " & cell.Row
        End If
        Set ws = Nothing
    Next cell
 
    MsgBox "Done"
 
 
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Sub movecategory()
    Dim rng As Range, cell As Range, ws As Worksheet,ws1 as worksheet
set ws1=sheets("Master List")
 
    Set rng = ws1.Range("C2:C" & ws1.Cells(Cells.Rows.Count, "C").End(xlUp).Row)
 
    For Each cell In rng
        On Error Resume Next
        Set ws = sheets(cell.Value)
 
        If Not ws Is Nothing Then
            cell.EntireRow.Copy ws.Range("C" & ws.Cells(Cells.Rows.Count, "c").End(xlUp).Row + 1)
            Else
            MsgBox " Sheet not present for category --> " & cell.Value & " mentioned in row number --> " & cell.Row
        End If
        Set ws = Nothing
    Next cell
 
    MsgBox "Done"
 
 
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Private Sub Worksheet_Activate()
 
Dim rng As Range, cell As Range, ws As Worksheet, ws1 As Worksheet
Set ws1 = Sheets("Master List")
 
    Set rng = ws1.Range("C2:C" & ws1.Cells(Cells.Rows.Count, "C").End(xlUp).Row)
 
    For Each cell In rng
        On Error Resume Next
        
        If cell = 50 Then
            cell.EntireRow.Copy ws.Range("C" & ws.Cells(Cells.Rows.Count, "c").End(xlUp).Row + 1)
            Else
            'MsgBox " Sheet not present for category --> " & cell.Value & " mentioned in row number --> " & cell.Row
        End If
        Set ws = Nothing
    Next cell
 
    MsgBox "Done"
 
 
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Private Sub Worksheet_Activate()
 
Dim rng As Range, cell As Range, masterList As Worksheet, actSheet As Worksheet, cat As String
 
    'Variable setting.
    Set masterList = Sheets("Master List")
    Set actSheet = activeSheet
    
    cat = "50" 'Change for each sheet!
    
    actSheet.Rows("2:200").ClearContents
    masterList.AutoFilterMode = False
        
    Set rng = masterList.Range("C2:C" & masterList.Cells(Cells.Rows.Count, "C").End(xlUp).Row)
 
    For Each cell In rng
        If cell = cat Then
            cell.EntireRow.Copy actSheet.Range("A" & actSheet.Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1)
        End If
    Next cell
  
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22: