Private Sub CommandButton1_Click()
Sheets("Questions").Activate
Selection.AutoFilter Field:=3, Criteria1:=Array( _
"key", "Others"), _
Operator:=xlFilterValues
Sheets("Questions").Range("a3").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("questionnaire").Activate
Sheets("questionnaire").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub