ONE CELL AS RANGE IN VBA INSIDE AN IF STATEMENT

[jffryjsphbyn]

Hi,

Please help me out to figure out what is the problem. There is no error said but there is one problem that there is no data generated when it is runned. The unclassified tab do contain a data.

If O24 = "AMERICAS" Or O24 = "americas" Then

    Sheets("UNCLASSIFIED").Select
    Columns("D:D").Delete
    Sheets("UNCLASSIFIED").Select
    Columns("A:C").Select
    Selection.Copy
    Sheets("CLASSIFIED-americas").Select
    Range("A:C").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    Sheets("UNCLASSIFIED").Select
    Columns("D:P").Select
    Selection.Copy
    Sheets("CLASSIFIED-americas").Select
    Range("K:W").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Sheets("INSTRUCTIONS").Activate

 
 Else
    If O24 = "RRRS" Or O24 = "rrrs" Then
     Sheets("UNCLASSIFIED").Select
    Columns("D:D").Delete
    Sheets("UNCLASSIFIED").Select
    Columns("A:C").Select
    Selection.Copy
    Sheets("CLASSIFIED-RRRS").Select
    Range("A:C").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    Sheets("UNCLASSIFIED").Select
    Columns("D:P").Select
    Selection.Copy
    Sheets("CLASSIFIED-RRRS").Select
    Range("K:W").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Sheets("INSTRUCTIONS").Activate
 
 
 Else
    If O24 = "RRR" And O24 = "RRR" Then
     Sheets("UNCLASSIFIED").Select
    Columns("D:D").Delete
    Sheets("UNCLASSIFIED").Select
    Columns("A:C").Select
    Selection.Copy
    Sheets("CLASSIFIED-RRR").Select
    Range("A:C").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    Sheets("UNCLASSIFIED").Select
    Columns("D:P").Select
    Selection.Copy
    Sheets("CLASSIFIED-RRR").Select
    Range("K:W").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Sheets("INSTRUCTIONS").Activate
 End If
 End If
 End If
 
 
 
    
End Sub

Thank you and Good luck!
Jeff