Macro to check lenght of characters and merge cells

Hello, guys!

I am trying to do a macro that checks if the length of a row is more than 3 characters, if that's correct - merge that field with another 45 into a third one. However, I really got lost so I'd need your help. This is what I got so far.

Sub MergeCells()
    Dim last As Long
    Dim   As Long
    Dim rangecells As Range
    Set rangecells = Range("M1:M100")
    Application.ScreenUpdating = False
    last = Cells(rangecells.Rows.Count, 1).End(xlUp).Row
    'loop
    For i = last To 1 Step -1
        If Len(Cells(i, 1)) > 3 Then
            ?????
            formatexpression = "=(M36&" "&N36&" "&O36&" "&P36&" "&Q36&" "&R36&" "&S36&" "&T36&" "&U36&" "&V36&" "&W36&" "&X36&" "&Y36&" "&Z36&" "&AA36&" "&AB36&" "&AC36&" "&AD36&" "&AE36&" "&AF36&" "&AG36&" "&AH36&" "&AI36&" "&AJ36&" "&AK36&" "&AL36&" "&AM36&" "&AN36&" "&AO36&" "&AP36&" "&AQ36&" "&AR36&" "&AS36&" "&AT36&" "&AU36&" "&AV36&" "&AW36&" "&AUX6)"
        End If
        Application.ScreenUpdating = True
    Next i
End Sub

Question is how can I specify these 45 rows to be merged with that "M1"?
Got really lost...

Hi and welcome to the forum,

According to forum rule number 3, codes must be wrapped with code tags, and we can't help you before you fix it.

Cheers,

It will be good if you explain with the help of a sample file. Just dummy data will do, as long as the format matches the original file.

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

Thank you Mayda.

Since hit1234 is a newbie to the forum, i added them for him.

Cheers arlu

@hit1234:
If you want to merge for example the range A1:B5 you can use this simple line of code:

Range(Cells(1,1),Cells(5,2)).Merge

You can use the VBA.len function to check the length of the string in the cell.

Originally Posted by hit1234

[CODE]
Yeah, but I still don't know how paraphrase it.

What do you mean by that?

The example you wrote was correct.

You mean you want to convert your formula into vba?