hi, everyone

i am using below code to copy and filldown formulas
i want to fill down without formatting
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.count > 1 Then Exit Sub
    If Intersect(Target, Range("E11:E1500")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    
    Range("A10:D10").Copy Destination:=Target.Offset(, -4)
    Range("H10:U10").Copy Destination:=Target.Offset(, 3)
    Range("Z10:AE10").Copy Destination:=Target.Offset(, 21)
    Range("AJ10:AK10").Copy Destination:=Target.Offset(, 31)
    Application.EnableEvents = True
End Sub
like

Type:=xlFillValues

thanx