VBA: Merge cells based on values in a specific column

[zzzz02]

Hi everyone, I am a student who's new to Excel VBA and need some help with my code
I have a column of values in range L4:L53:
4
2
2
2
2
3
5
.... and so on

What I wish to do is merge the cells starting from X4 according to the values in column L
E.g. The value in L4 is 4, cells X4:X7 should merge together
The value in L5 is 2, cells X8:X9 should merge together
The value in L6 is 2, cells X10:X11 should merge together and so on.

Is there a VBA code that can achieve this, or do I need to do this manually? I appreciate your help!!

 

[RustamMika]

Sub For_zz()
    m = 4
    For i = 4 To 53
        Range(Cells(m, 24), Cells(m + Cells(i, 12).Value - 1, 24)).Merge
        m = m + Cells(i, 12).Value
    Next
End Sub

 

[Skyybot]

Option Explicit

Sub MergeCells()
Dim wb As Workbook, sht As Worksheet, dRng As Range, sRng As Range, cell As Range
Set wb = ThisWorkbook: Set sht = wb.Sheets(1): Set dRng = sht.Range("L4:L53")
Set sRng = sht.Range("X4")
For Each cell In dRng
    sht.Range(sRng, sRng.Offset(cell.Value, 0)).Merge
    Set sRng = sRng.Offset(1, 0)
Next cell
End Sub

 

[zzzz02]

Sub For_zz()
    m = 4
    For i = 4 To 53
        Range(Cells(m, 24), Cells(m + Cells(i, 12).Value - 1, 24)).Merge
        m = m + Cells(i, 12).Value
    Next
End Sub

it works great! thank you!!

 

[zzzz02]

Option Explicit

Sub MergeCells()
Dim wb As Workbook, sht As Worksheet, dRng As Range, sRng As Range, cell As Range
Set wb = ThisWorkbook: Set sht = wb.Sheets(1): Set dRng = sht.Range("L4:L53")
Set sRng = sht.Range("X4")
For Each cell In dRng
    sht.Range(sRng, sRng.Offset(cell.Value, 0)).Merge
    Set sRng = sRng.Offset(1, 0)
Next cell
End Sub

thank you!!