adjusting code copy protected hidden formula range

hello

i need adjust this code to make me copy data about range b6,c6 to i can pull down this range theses rang are hidden formula

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect
    
 If Target.HasFormula Then

        With Target
         .Locked = False
         .FormulaHidden = True
        End With
        With ActiveSheet
             .Protect
             .EnableSelection = xllockedCells
        End With
 End If

End Sub

the range b6,c6 are hidden and protect formula i can't pull theses range to down because it is protected i would pull down theses rang you can say copy

as you like just try pulling down range b6, c6 it shows the message protected cells just i would pull down