For Each ws In Worksheets
If ws.Name = ComboBox1 Then
ws.Visible = True
Sheets(1).UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy
ws.Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
Application.Goto ws.[A1]
Exit For
End If
Next