根据第一个单元格值合并空白列

Question

我想根据我在下面的代码中尝试的第一个单元格值合并空白单元格“O2”列，

Dim rng as range
Range("O2").Select
Range(Selection, Selection.End(xlDown)).Select
mergecells:
For Each rng In Selection
    IF rng.Value = rng.offset(1, 0).Value = "" Then
        Range(rng, rng.offset(1, 0)).Merge
        GoTo mergecells
    End If
Next

但它有点不工作，请帮助或建议我任何代码。

注意：我有大量数据集，它只是 VBA 的一部分，因此我需要在 VBA 代码中使用它。

谢谢大家。