Hello rlsublime,

Sorry about that, there was a typo in the added code and the On Error statement hide it. The error was in the Set statement in the Else section. Range was misspelled as Rnage. The code should read...
                            If c < 12 Then
                                Set Row = Intersect(Row, Range(Columns(c), Columns(LastCol)))
                            Else
                                Set Row = Intersect(Row, Range(Columns(c + 1), Columns(LastCol)))
                            End If