grotere selectie laten berekenen via macro

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
'overslaan cellen
'If Target.Column = 1 Then Target.Offset(0, 2).Select
'If Target.Column = 3 Then Target.Offset(0, 6).Select
        'uren omzetten
If Not Intersect(Target, Range("c2:d500000")) Is Nothing Then
    If Not IsEmpty(Target) Then
    
    If Hour(Target.Value) = 0 Or Minute(Target.Value) = 0 Then
        Application.EnableEvents = False
            If Int(Target.Value / 100) < 0.1 Then
                Target = "00:" & Target.Value
                Else
                Target = Int(Target.Value / 100) & ":" & Right(Target.Value, 2)
            End If
        Application.EnableEvents = True
        hw = (Target - Target.Offset(, -1)) * 24 - Pause(Target.Offset(, -1), Target, Range("O2:P4")) * 24
        If Target.Column = 4 Then Target.Offset(0, 8) = IIf(hw > 0, Round(hw, 2), "")
        End If
    End If
End If
If Not Intersect(Target, Range("e:e")) Is Nothing Then
    Target.NumberFormat = "General"
    Application.EnableEvents = False
    Target = CDate(Left(Format(CStr(Target.Value), "0000"), 2) & "-" & Right(CStr(Target.Value), 2) & "-" & Year(Date))
For i = Target.Row - 1 To Target.End(xlUp).Row Step -1 'code om de datum naar boven op automatisch in te vullen
If Cells(i, "e").Value = "" Then Cells(i, "e").FillUp
Next
    Application.EnableEvents = True
Application.Goto (Cells(Rows.Count, "A").End(xlUp).End(xlUp).Offset(1, 0))

End If


ActiveCell.Calculate

End Sub