Private Sub CommandButton1_Click()
' ActiveSheet.Unprotect
Application.ScreenUpdating = False
Sheets(2).Select
Sheets(2).Range("A3
" & [C65000].End(xlUp).Row).Select
Selection.ClearContents
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets(1).Select
Sheets(1).Range("$B:$F").AutoFilter Field:=1, Criteria1:="<>"
Sheets(1).Range("C2:F" & [E65000].End(xlUp).Row).Select
Selection.Copy
Sheets(2).Select
Sheets(2).Range("A3").Select
Sheets(2).Paste
Sheets(2).Range("A3").Select
Sheets(1).Select
Application.CutCopyMode = False
Sheets(1).Range("A2").Select
Sheets(1).Range("$B:$F").AutoFilter Field:=1
' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub