VBA Help | Hiding Rows based on Strings

Hello all,

I am currently having issues with running a VBA sub in which I desire it to have the capability of hiding rows based off strings... my spreadsheet has tasks based off frequencies "weekly", "biweekly", "monthly" .... etc. all the way up to the second to last row which reads "additional notes".. I have command buttons for the different frequencies. I desire to be able to click "weekly" which would then hide all the tasks up until the row "additional notes." The code runs but nothing happens.. Any tips?

Sub weekly()
Dim LoopCell As Range
Dim CellRange As Range
Dim CellValue As String


Set CellRange = Range("A1:A100")
For Each LoopCell In CellRange
If CellValue = "BIWEEKLY" Then
Do
LoopCell.Value = CellValue
EntireRow.Hidden = True
Loop Until CellValue = "ADDITIONAL NOTES"
End If
Next LoopCell

End sub

Any help is appreciated.
mg