请教大佬：如何在代码里增加代码以实现勾选B列的"空白"和日期

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Long, c As Long, lastRow As Long
Dim startDate As Date, endDate As Date
r = Target.Row
c = Target.Column
' 点击B列时的处理（从第四行开始）
If c = 2 And r >= 4 Then
' 获取起始日期和结束日期
startDate = Cells(r, 4).Value
endDate = Cells(r, 5).Value
' 处理客户详单筛选及跳转
With Sheets("客户详单")
' 动态确定数据的实际范围
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Dim dataRange As Range
Set dataRange = .Range("A1:A" & lastRow)
' 筛选B列的日期范围
dataRange.AutoFilter Field:=2, _
Criteria1:=">=" & startDate, _
Operator:=xlAnd, _
Criteria2:="<=" & endDate
' 解除J列的筛选状态
dataRange.AutoFilter Field:=10 ' J列是第10列
' 计算数据尾行并跳转
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If lastRow = 2 And .Range("A1") = "" Then lastRow = 1 ' 空表处理
.Activate
.Cells(lastRow, 1).Select
End With
End If
End Sub