Extraer datos Reporte de Consolidados

A los miembros de este foro, en esta ocasión solicito vuestra colaboración y ayuda para mejorar la macro que estoy utilizando para remitir reporte de consolidados, aquí muestro la macro que permite unir los archivos y que se puede visualizar en la imagen que adjunto y el problema que tengo es esta parte Range("B8:AO17"). Copy., la AO17 (problema) debe ser la ultima fila de cada archivo y como es lógico son variables como por ejemplo una tiene 113, 36, 28, etc., para ellos necesito que a ejecutarse la macro solo permita leer la última fila (SIN INCLUIR EL VALOR TOTAL).

Dim R
Sub abrir()
Application.ScreenUpdating = False
file = Application.GetOpenFilename
If file = False Then
Exit Sub
Else
Workbooks.OpenText Filename:=file
End If

a = ActiveWorkbook.Name
UserForm1.Show
Range("B8:AO17").Copy 'aca debe traer el ultimo nombre de cada archivo SIN TOMAR EL VALOR TOTAL
Windows("PLANTILLA ELECTRONICA.xlsm").Activate
n = Range("b8").Value
If n <> Empty Then
Range("b8").End(xlDown).Offset(1, 0).Select
Else
Range("b8").Select
End If

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("B3").Select
Range("B1").Select
Windows(a).Activate
Application.CutCopyMode = False
ActiveWindow.Close savechanges:=False
Application.ScreenUpdating = True
Copiando
End Sub
Sub Copiando()
resultado = MsgBox("¿Desea copiar otro libro?", vbYesNo, "IMPORTANTE")
If resultado = vbYes Then
abrir
End If
End Sub
Sub Verificar()
R = Hoja1.Range("A2").End(xlUp).Row
For i = 2 To R
If Hoja2.Cells(i, 1) = "" Then
Final = i
Exit For
End If
Next
End Sub
Sub c()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
R = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
abrir
End Sub

A la espera de su respuesta quedo de uds. Agradecidos.