excel vbn 复制内容

用vbn复制内容，把[A1:B16]的内容，复制到同一路径下“统计”文件夹，“5月”工作簿，“6”工作表，[A1:B16]内。应怎样写代码？请帮帮忙

Sub xx()
    pth = ThisWorkbook.Path & "\统计\"
    fn = "5月.xlsx"
    Workbooks.Open pth & fn
    [a1:b16].Copy Workbooks(fn).Worksheets("6").[a1]
    Workbooks(fn).Close True
End Sub

i = cstr(format(date, "dd")+1) 或者 i = format(date, "dd")+1 & ""