copy and paste values to another sheet if value in one column matches condition

If you want to first clear data in sheet2.

Sub copyme()
Application.ScreenUpdating = False
Dim ms As Worksheet
Set ms = Sheets("Sheet2")
ms.UsedRange.Offset(1).ClearContents
With Sheets("Sheet1").Range("A1").CurrentRegion
    .Parent.AutoFilterMode = False
    .AutoFilter 3, Criteria1:="cc"
     If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
       .Offset(1).Copy
       ms.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    End If
    .AutoFilter
    .Parent.UsedRange
End With
Application.ScreenUpdating = True
End Sub