Hello there,

I want to run these code both at the same time but I don't have much experience with VBA. Please help

(code1)Private Sub Worksheet_Change(ByVal Target As Range)

lr = ActiveSheet.UsedRange.Rows.Count

If (Target.Column = Range("Response").Column) Then

With Application
.EnableEvents = False
.ScreenUpdating = False

End With
Code(2) Private Function IsFiltered(SheetName As Worksheet) As Boolean

Dim lr As Long
Dim n As Integer

Thank you so much! To save some space, I didn't put the completed code, just the first part of it. Thanks!