merge cells vba excel

Question

please my freinds I wanna merge cells in the last column

I used this code to find the last column lastColumn = Worksheets("sheet1").Cells(1, Columns.Count).End(