1) U mnie po "odkomentowaniu" warunku w zdarzeniu Worksheet_Change przycisk pokazuje się i ukrywa w zależności od zawartości komórki C14, nie bardzo rozumiem, w czym problem. Przy okazji ciekawostka przyrodnicza: można ten warunek zapisać tak (choć nie jest to wskazane ze względu na czytelność kodu. :))

CommandButton1.Enabled = [C14].Value <> ""

2) Jeśli wyłączasz odświeżanie/zdarzenia/przeliczanie arkusza itp. zawsze przywracaj stan pierwotny na końcu makra. Teoretycznie Excel sam powinien o to zadbać, ale w praktyce różnie bywa (daleko nie trzeba szukać, u mnie ekran "zawiesił się" przy grzebaniu w Twoim makrze).

3) Zapomnij o istnieniu metody Select. Zamiast wskazywać komórki, na których chcesz działać (bardzo spowalnia to działanie makr), odnoś się do nich np. przez Cells(x, y), przypisania do zmiennych (Set rng = Range("A1")), iteracje po zakresie (For Each rng in Range("A1:A10")) itp.

4) Zawsze dokładnie sprawdzaj warunki. :) W poniższym wierszu pętla ma działać, dopóki będziemy mieli w komórce zero lub jeden, po co więc dodatkowo sprawdzać, czy jest ona niepusta? Niby niespecjalnie to przeszkadza, ale komplikuje analizę kodu. :)

Do While ActiveCell.Value <> "" And (ActiveCell.Value = "0" Or ActiveCell.Value = "1")

5) Zerknij na poniższe rozwiązanie. Zamiast sprawdzać kolejne komórki w matrycy, przeniosłem potrzebną jej część do zmiennej tablicowej, dzięki czemu nie trzeba wielokrotnie odczytywać danych z arkusza, robimy to tylko raz. Tu oczywiście nie daje to zbytniej przewagi, bo komórek do sprawdzenia jest niewiele, ale przy dużych zakresach różnica potrafi być kolosalna. Ostatnio sprowadziłem w ten sposób wykonywanie makra operującego na kilkudziesięciu tysiącach wierszy z ponad minuty do mniej niż sekundy, jest o co walczyć. Na początku może być to trochę niejasne, ale warto pamiętać o takim podejściu. :)

Sub RozwijanieOdpowiedniejListy()
Dim szukaj As String, komorka As Range, arr As Variant, r As Long

'zapisujemy szukaną wartość do zmiennej
szukaj = Sheets("Checklist").Range("c3").Value

'jeżeli szukana wartość jest pusta, przerywamy makro
If szukaj = "" Then Exit Sub

'znajdujemy komórkę z szukaną wartością w matrycy
Set komorka = Sheets("Dane").Rows(2).Find(szukaj, LookIn:=xlValues, lookat:=xlWhole)

'przepisujemy wartości z matrycy do zmiennej tablicowej
arr = Application.Transpose(Range(komorka.Offset(1, 0), komorka.End(xlDown)))

'wyłączamy odświeżanie ekranu
Application.ScreenUpdating = False
'przechodzimy przez wszystkie elementy tablicy
For r = 1 To UBound(arr)
   'sprawdzamy, czy bieżąca wartość tablicy to jedynka
   'i odpowiednio ukrywamy/odkrywamy wiersz
   Sheets("Checklist").Rows(r + 5).Hidden = IIf(arr(r) = 1, False, True)
Next
'włączamy odświeżanie ekranu
Application.ScreenUpdating = True

End Sub