macro not working due external content disabled

[vamshikrishna]

On Error GoTo Terminate
    Dim M As Integer

    Sheets("POSITIVE").Select
    M = Cells(Rows.Count, "A").End(xlUp).Row
    If IsEmpty(Range("E" & M + 1)) = True Then
     Workbooks(ThisWorkbook.Worksheets("Sheet1").Range("B2").Value).Activate
      
    ''Column E instance to Column E positive tab
    Sheets("SCRUBBED").Select
    Range("E1").Select
    ActiveCell.Offset(1, 0).Select
    Do Until ActiveCell.EntireRow.Hidden = False
    ActiveCell.Offset(1, 0).Select
    Loop
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("POSITIVE").Select
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    Range("E" & LR).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

>> CODE -tags <<

 

[charlesdh]

Hi,
Can you post a workbook?