Merging Cells In VBA

[ConfuzzledThomas]

Hi everyone.

I have some data in column A from row number 12 to row number 62.

I want to merge the value in each row with the cell to the right of it.

So I want to merge A12 & B12, then A13 & B13 and so on.

The code I have now doesn't generate any errors but simply doesn't do anything.

Any help appreciated

Dim k As Long
For k = 12 To 62    
Sheets("Clearance Instruction Document").Activate
Range(Cells(k, 1), Cells(k, 2)).Select
Selection.Merge
Sheets("Clearance Instruction Document").Activate
Range(Cells(k, 3), Cells(k, 4)).Select
Selection.Merge
Next k

Thanks in advance, Thomas

 

[jasonb75]

While merging is rarely necessary and something that most would advise against doing your code should work fine (it worked when I tried it in case I was missing something).
See if this variation to your code works instead, although I can see no reason why it would if yours is not.

Dim k As Long
With Sheets("Clearance Instruction Document")
    For k = 12 To 62
        .Range(.Cells(k, 1), .Cells(k, 2)).Merge
        .Range(.Cells(k, 3), .Cells(k, 4)).Merge
    Next k
End With

 

[ConfuzzledThomas]

While merging is rarely necessary and something that most would advise against doing your code should work fine (it worked when I tried it in case I was missing something).
See if this variation to your code works instead, although I can see no reason why it would if yours is not.

Dim k As Long
With Sheets("Clearance Instruction Document")
    For k = 12 To 62
        .Range(.Cells(k, 1), .Cells(k, 2)).Merge
        .Range(.Cells(k, 3), .Cells(k, 4)).Merge
    Next k
End With

Thank you that seems to work. I know what you mean about merged cells they are a complete pain. However, I have just been tasked with automating this particular document for a work group.