VBA Merging Cells Help Needed

[Tuffman]

I am trying to merge two cells that will be next to each other using VBA. I need to keep the row constant but the columns will change. I have tried using the two lines of code, but neither of them work. I would appreciate any insight into getting these to work. Thank you.

Worksheets("GT Quick Reference View").Range(Cells(1, j), Cells(1, j + 1)).Merge

Worksheets("GT Quick Reference View").Range("A" & j:"A" & j + 1).Merge

 

[jolivanes]

No worries Jeff. Happens to the best of us as you showed!!!!!

 

[Tuffman]

You need to qualify properly.

Worksheets("GT Quick Reference View").Range(Worksheets("GT Quick Reference View").Cells(1, ColumnNum), Worksheets("GT Quick Reference View").Cells(1, ColumnNum + 1)).Merge

Or
at the top declare

Dim ws2 As Worksheet
Set ws2 = Worksheets("GT Quick Reference View")

more code here

ws2.Range(ws2.Cells(1, ColumnNum), ws2.Cells(1, ColumnNum + 1)).Merge

I did not go through all the code but the above stood out for me.
Try the changes and let us know either one way or the other.

I got your first recommendation to jolivanes. Thank you very much.

And yes the first time pasting is in C1.

Thanks again, and thank you Jeff as well.

 

[jolivanes]

xlCellTypeLastCell includes cells that appear empty but have formatting without a value.
Use either one of these instead.

lr = Cells.Find("*", ,xlValues , , xlByRows, xlPrevious).Row = Values only
lr = Cells.Find("*", ,xlFormulas , , xlByRows, xlPrevious).Row = Includes Formulas

You have to change the references to your way of doing it. I just typed it as short as I could!!!
Try this on a copy of your original.
Not tested. A guess of what you need.

Sub Can_You_Try_This()
Dim cN As Long, rN As Long, maxrN As Long, sRng As Long, sStr As String
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Test Design")
Set ws2 = Worksheets("GT Quick Reference View")
sStr = "GT"
maxrN = ws1.Cells.SpecialCells(xlCellTypeLastCell).Row
sRng = maxrN - 3818    '<---- why this? There should be a more robust way.
cN = 1
    For rN = 3 To sRng
        If ws1.Cells(rN, 2).Value = sStr Then
            ws1.Cells(rN, 1).Copy ws2.Cells(1, cN)
            ws2.Cells(1, cN).Resize(, 2).Merge
        End If
    cN = cN + 2
    Next rN
End Sub