Selecting a range of columns based on the last column

This is strictly to answer your request in your first Post.
After I had this done, I seen all the other Posts.

Sub Maybe()
Dim i As Long, a As Long
    For i = Cells(2, Columns.Count).End(xlToLeft).Column To 2 Step -1
        If IsDate(Cells(2, i)) Then a = Cells(2, i).Column: Exit For
    Next i
    If a - 2 > 10 Then
        Cells(2, a - 9).Resize(, 10).EntireColumn.Select
            Else
        Cells(2, 2).Resize(, a - 1).EntireColumn.Select
    End If
End Sub