Sort Columns low to high but im told cells are merged

[ipbr21054]

Hi,

I have two columns A & B of which i need each sorted separatley from low to high numbers.
This worked fine.

Private Sub SortFrameNumbers_Click()
Range("A2:A150").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo
Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
End Sub

It sorted column A from 1-100 perfect then it sorted column B 1-22 perfect.

So i then added it to my code which populates these two columns but i then get a RTE 1004 please see screenshot.

This is the code i added it to.

Private Sub GoldWingCountry_Click()
    Dim Cell As Range
    Dim wsMC As Worksheet
    Dim wsCountry As Worksheet
    
    Set wsMC = Sheets("MCLIST")
    Set wsCountry = Sheets("COUNTRYLIST")
    
    With Sheets("COUNTRYLIST")
        .Range("A2:B1000").ClearContents
    End With
    
    wsCountry.Range("A1") = "GOLD WING UK"
    wsCountry.Range("B1") = "GOLD WING USA"
    
    With wsMC
        For Each Cell In .Range("D8:D" & .Cells(.Rows.Count, "D").End(xlUp).Row)
            If Cell.Value = "GOLD WING UK" Then
                wsCountry.Range("A" & Rows.Count).End(xlUp).Offset(1) = Cell.Offset(, -2)
            ElseIf Cell.Value = "GOLD WING USA" Then
               wsCountry.Range("B" & Rows.Count).End(xlUp).Offset(1) = Cell.Offset(, -2)
            End If
        Next Cell
    End With
    Sheets("COUNTRYLIST").Select
    Range("A2:A150").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo
    Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
End Sub

I run the code & columns A & B are populated.

The code sorts column A2 & down the page from 1-100 etc & at this point column B is untouched.
Once done the code sorts column B2 & down the page from 1 -50 etc & at this point column A is untouched.

Please advise as none of the cells are merged

 

[6StringJazzer]

Which line of code raised the error?

Are any cells in column D merged?

BTW merging cells is almost always a bad practice.

 

[ipbr21054]

No cells are merged.
The first yellow line was the sorting of column A

 

[Joe4]

No cells are merged.
The first yellow line was the sorting of column A

Excel seems to think otherwise.
Have a look here to locate where Excel thinks there are merged cells: Find merged cells - Microsoft Support

 

[MARK858]

Can you run the code below and let us know if any cells are highlighted yellow

Sub FindMergedcells()
Dim myRng As Range
    For Each myRng In Sheets("COUNTRYLIST").UsedRange
        If myRng.MergeCells Then
            myRng.Interior.ColorIndex = 6
        End If
    Next
End Sub

 

[ipbr21054]

Can you run the code below and let us know if any cells are highlighted yellow

Sub FindMergedcells()
Dim myRng As Range
    For Each myRng In Sheets("COUNTRYLIST").UsedRange
        If myRng.MergeCells Then
            myRng.Interior.ColorIndex = 6
        End If
    Next
End Sub

No cells turn Yellow

 

[Joe4]

No cells turn Yellow

Did you look at the link I provided and follow those steps?

 

[ipbr21054]

Im looking now but i use 2007 so need to find out where it is

 

[Joe4]

Im looking now but i use 2007 so need to find out where it is

You can simply use CTRL+F to bring up the FIND menu.

 

[ipbr21054]

You can simply use CTRL+F to bring up the FIND menu.

See screenshot

However none of them are merged.

So this below works.

In the main code i added Call FRAME_NUMBER_SORT

In that module i used the same 2 lines of code that was giving the issue.
It works fine & i havent touched any other cells in respect of un merging them

Cheers