vba运行时报错438 请高手帮忙看看

不太懂vba，下面代码运行提示438错误，高手帮忙看下如何正确修改
Private Sub CommandButton1_Click()
'If [L4] <> "" Then
Dim a
Dim b
a = Sheets("11月销售统计").Application.Match(K3, [C5:C2000]) - Application.SumProduct((Application.IsError(Application.Find(Application.TODAY(), [B5:B2000])) = False) * (Application.IsError(Application.Find(K3, [C5:C2000])) = False)) + 1 ' 变量（B列起始行号）
b = Application.Match(K3, [C5:C2000]) ' 变量（L列结束行号）
PageSetup.PrintArea = "$B$" & a & ":$L$" & b & "" '动态确定打印区域

End Sub

vba里不能直接用单元格引用，所有的K3必须改成range("K3") 或者[k3],我试着改了下，没有运行过，而且不清楚你中间那一段表达式表达的是什么意思。
Private Sub CommandButton1_Click()

with Sheets("11月销售统计")
If .[L4] <> "" Then
Dim a
Dim b
a =Application.Match(.[K3], .[C5:C2000],) - Application.SumProduct((Application.IsError(Application.Find(Application.TODAY(), .[B5:B2000])) = False) * (Application.IsError(Application.Find(.[K3],.[C5:C2000])) = False)) + 1 ' 变量（B列起始行号）
b = Application.Match(.[K3], .[C5:C2000],) ' 变量（L列结束行号）
PageSetup.PrintArea =.range("B" & a & ":L" & b ) '动态确定打印区域
end if
end with
End Sub
如果不行的话，可以私信我你的联系方式。