Does this do the same thing?
Sub Macro1()

Dim RtCol As Double

    Range("E3").Select
    Selection.End(xlToRight).Select
    RtCol = ActiveCell.Column
    Range(Cells(3, 5), Cells(15, RtCol)).Select
    
End Sub
Without needing an On Error ?