Encuentre la última columna que contiene valores en un rango específico en VBA.

Tengo 3 rangos de datos normales desde A3:O43, Q3:AE43, AG3:AU43, y todas estas celdas están llenas de fórmulas. Ahora me gustaría identificar la última columna de cada rango en función de los valores utilizando FIND o cualquier otra forma. He intentado usar el siguiente código, pero no puedo obtener correctamente los números de columna.

With UBMonthlyYTDSht
    Set Rowss = .Columns("B:B").Find("*", After:=.Range("B1"), searchdirection:=xlPrevious, LookIn:=xlValues)
    If Not Rowss Is Nothing Then Lrows = Rowss.Row
End With

Lcols = UBMonthlyYTDSht.Cells(1, Columns.Count).End(xlToLeft).Column

With UBMonthlyYTDSht
    Set Colss = .Rows(Lrows).Find("*", After:=.Cells(Lrows, Lcols), searchdirection:=xlPrevious, LookIn:=xlValues)
    If Not Colss Is Nothing Then Lcols = Colss.Column
End With

¡¡Agradezco su ayuda!!