Excel VBA Merging Cells

[KitK369]

Yes, I'm aware that merging cells in VBA is not recommended and often a nightmare, however it's a necessity for the workbook I'm working on. Please feel free to slap my hand for merging though haha.

I'm looking to merge two cells in a column. It needs to be activecell based and not based on Cell A15:A16. I have found tons of data on merging cells across columns but not across rows. For example, I am using an ActiveCell Offset function to return to cell A15 (this cell can vary depending on the worksheet so that's why I'm using an offset function.) I need to then merge and center cells A15 and A16 (but keep in mind these cells change depending on the worksheet and I need the macro to be fluid.)

Any chance anyone can point me in the right direction of how to accomplish this?

 

[iggydarsa]

so you want to merge Active cell with the cell below it? If I understood you correctly, try this code

Sub MergeCells()
    Range(ActiveCell.Address & ":" & ActiveCell.Offset(1).Address).Merge
End Sub

 

[Fluff]

Alternatively

ActiveCell.Resize(2).Merge

 

[KitK369]

Alternatively

ActiveCell.Resize(2).Merge

This one worked! That was WAY less complicated than I was trying to make it! Thanks!

 

[Fluff]

Glad we could help & thanks for the feedback