Devolver la ultima fila pero de la selección actual

Tengo un código que es este y me funciona pero...

fila1b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

AQUÍ ME DEVUELVE EL NUMERO DE RENGLÓN PERO DEL ULTIMO RANGO DE DATOS QUE ESTA EN LA HOJA ACTUAL, PERO YO REQUIERO QUE LO HAGA DENTRO DEL RANGO DE CELDAS QUE ESTA ACTUALMENTE SELECCIONADO(Es decir hay más datos abajo de la selección actual, pero quiero trabajar dentro del rango de celdas actualmente seleccionado )
columna1b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

LO MISMO CON LA COLUMNA
MsgBox fila1b

Aquí me muestra el numero de fila pero toma al la ultima fila con contenido, pero requiero que sea de un rango que esta actualmente seleccionado

MsgBox columna1b

fila2b = fila1b - 9
columna2b = columna1b - 12

'Sueldob = Application.VLookup(Me.ComboBox2.Value, Range(Cells(fila2, columna2), Cells(fila1, columna1)), 3, 0)

Aquí hago una búsqueda a partir de un dato que esta en una lista desplegable, trayéndome un dato

ventasb = Application.VLookup(Me.ComboBox2.Value, Range(Cells(fila2b, columna2b), Cells(fila1b, columna1b)), 2, 0)