求助：如何在这段代码里把“收购者和公司名称加粗，日期和联系方式设为居中？

libinghua888

    Dim arr, b
arr = [B1].CurrentRegion
b = UBound(arr) + 1
Cells(b, 2) = "收购者盖章或签名："
Cells(b, 4) = "福建***有限公司"
Cells(b + 1, 2) = "开  具  日  期："
Cells(b + 1, 3) = "=TODAY()"
Cells(b + 1, 4) = "联  系  方  式："
Cells(b + 1, 5) = "18******86"

libinghua888

跪求高手给予解决方案!