Macro Button to copy data from one worksheet to second worksheet with criteria

Hello,

I'm new to this forum and am hoping someone can help me with this one. I have been trying to create a macro that will copy a whole row if the value in E1 on "Output" is equal to the value in column C. I have created an example xlsx file as an example. The number of rows range often. Any help would be appreciated!!

Sub CombineAllSheets()

 Dim ms As Worksheet, LR As Long, i As Long
 
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    
    On Error Resume Next
    
  Set ms = Sheets("Output")
  
    With Sheets("Data")
    
        LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
            
        For i = 2 To LR
           
             If ms.Range("E1") = .Range("C" & i) Then
            
               .Rows(i).Copy ms.Range("A" & Rows.Count).End(xlUp).Offset(1)
            
             End If
        Next i
             
    End With
      
      Application.CutCopyMode = 0
     
     Application.ScreenUpdating = 1
    
     Application.DisplayAlerts = 1
     Set ms = Nothing
End Sub