Issue with copy paste code

[ERed1]

Hi all,

I am having an issue with my copy paste code. Here is my code:

        If Range("B49").Value = "Other" Then            Sheets("Sheet1").Range("B50").Copy
            Sheets("Sheet2").Activate
            lastrow = Range("D65536").End(xlUp).Row
            Cells(lastrow + 1, 32).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        ElseIf Range("B49").Value = "Black" Then
            Sheets("Sheet1").Range("B49").Copy
            Sheets("Sheet2").Activate
            lastrow = Range("D65536").End(xlUp).Row
            Cells(lastrow + 1, 32).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        End If

So I have a drop down in cell B49. The options are Black and Other. If other is selected then B50 appears and you can type a color in. This code constantly pastes nothing into the cell I have it pasting in. Any ideas on what could be causing this?

Thanks for all the help.

 

[RoryA]

If it's not activating at all, then the value in the cell isn't exactly 'Other' - note that VBA will not treat Other, other and OTHER as equal.

 

[ERed1]

If it's not activating at all, then the value in the cell isn't exactly 'Other' - note that VBA will not treat Other, other and OTHER as equal.

I triple checked and still no luck. I checked the name and copied and pasted that to make sure. I did the other thing you recommended as well.

 

[ERed1]

Is there a macro to make search cells in a certain range and clear if "Other" is found?