Worksheet_Change Event Want to fill down formula without formatting

**HaroonSid** · 01-31-2017, 06:51 AM

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

**JOHN H. DAVIS** · 01-31-2017, 08:43 AM

Maybe:

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
    Target.Offset(, -4).PasteSpecial xlPasteValues
    Range("H10:U10").Copy
    Target.Offset(, 3).PasteSpecial xlPasteValues
    Range("Z10:AE10").Copy
    Target.Offset(, 21).PasteSpecial xlPasteValues
    Range("AJ10:AK10").Copy
    Target.Offset(, 31).PasteSpecial xlPasteValues
    Application.EnableEvents = True
End Sub