So far i've got this
If ActiveSheet.Range("K5:K500").Value = 1 Then
        EntireRow.Hidden = True
    End If
Im geting a mismatch error and im not exactly sure why