Selamat Malam, mohon Bantuanya untuk menambahkan Codenya :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
Rows("2:13").Hidden = True
For a = 2 To 13 Step 1
If Len(Range("B" & a).value) > 1 Then
Rows(a).Hidden = False
End If
Next a


End If
End Sub

mungkin seperti ini

sangat bagus jawabannya kak,
Maaf kak tp aku maunya tidak pakai tombol Hide and Unhide
jd ketika kita mencetak lembar kerjanya Rownya terhide otomatis jika Kolomnya blank

Berarti kondisi hide hanya untuk hasil cetakan print.
mungkin seperti ini

Siap Kak terima kasih banyak lagi

selamat siang mas @Herry tolong bantu jawab :

1) kalau aku pake perintah ini kok berat sekali ya, apakah bisa dibenahi, soalnya saya lagi butuh perintah semacam ini adapun perintah tersebut saya simpan di sheet 1

2) Pertanyaan Kedua APakah ada cara untuk menambah Pengikut ke enam dst, sedangkan Format yang tersedia maksimal 5 pengikut

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$5" Then
Rows("22:245").Hidden = True
For a = 22 To 245 Step 1
If Len(Range("O" & a).value) > 1 Then
Rows(a).Hidden = False
End If
Next a


End If
End Sub

terima kasih sebelumnya

Terima kasih banyak mas atas jawabannya ^_^

sama2