Good day to all!

I'm currently writing a code that transposes some data. My current issue with the code is that the "ErrMsg" pops up even when there is no error. If I were to put "Exit Sub" after "On Error GoTo ErrMsg", the whole module fails to continue and I am also unable to call the next module too. Hope someone can help me out here!

The code I have below runs fine but it shows the MsgBox even though there is no error.

```
Sub Five_Transpose()

Dim LPID As Range
Dim InvestorName As Range
Dim DataTableX As ListObject
Dim Rng As Range
Dim rngB As Range

    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    End With

    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Funds Table"

    Sheets("Filtered Data").Copy After:=ActiveSheet
    ActiveSheet.Name = "X"

    On Error GoTo ErrMsg

    With Sheets("X")
    Set DataTableX = ActiveSheet.ListObjects(1)
    DataTableX.Name = "DataTableX"
    .Range("DataTableX[#All]").RemoveDuplicates Columns:=2, Header:=xlYes
    .Range(Range("A1"), Range("A1").End(xlDown)).Copy Destination:=Sheets("Funds Table").Range("B4")
    .Range(Range("B1"), Range("B1").End(xlDown)).Copy Destination:=Sheets("Funds Table").Range("A4")
    .Range("DataTableX[#All]").RemoveDuplicates Columns:=4, Header:=xlYes
    Set LPID = .Cells.Range(Range("C1"), Range("C1").End(xlDown))
    Set InvestorName = .Cells.Range(Range("D1"), Range("D1").End(xlDown))
    End With

    LPID.Copy
    Sheets("Funds Table").Range("B2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    InvestorName.Copy
    Sheets("Funds Table").Range("B1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    Sheets("Funds Table").Select
    Set Rng = Range(Range("B1:B3"), Range("B1:B3").End(xlToRight))
    Set rngB = Range(Range("B5"), Range("B5").End(xlDown))

    With Rng.Borders
        .LineStyle = xlContinuous
        .ThemeColor = 6
        .TintAndShade = 0
        .Weight = xlThin
    End With

    With rngB.Borders
        .LineStyle = xlContinuous
        .ThemeColor = 6
        .TintAndShade = 0
        .Weight = xlThin
    End With

    With Range("B3")
    .Font.Bold = "True"
    .Value = "Funds with IRR"
    .Interior.Pattern = xlSolid
    .Interior.ThemeColor = xlThemeColorAccent2
    End With

    Sheets("X").Delete

    With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    End With

ErrMsg:
MsgBox ("There are no funds that are within 3 Quarters from now"), , "Message Box:"

Call Six_Continue

End Sub

```