帮助修改下程序，谢谢

yjm0809

求大侠帮助修改下程序，使附件的K列（标黄部分）达到L列同样的合并单元格，自动换行，靠左的效果，谢谢！！！下面是我编制的程序：

Sub test2()
  Sheets("sheet1").Activate
  For i = 8 To [a65536].End(xlUp).Row + 7
    If Cells(i, 11) <> "" Then
        r2 = Cells(i, 11).End(xlDown).Row
        Range(Cells(i, 11), Cells(r2 - 6, 11)).Merge
        Range(Cells(i, 11), Cells(r2 - 6, 11)).VerticalAlignment = xlBottom
        i = r2 - 5
    End If
  Next
  ActiveWorkbook.Save
End Sub


非常感谢！！！